anchor.diff:        (when (plusp (length keystrokes))
           (princ "It is bound to " stream)
           (loop for gestures-list on (first keystrokes)
  -           do (with-drawing-options (stream :ink +dark-blue+
  -					    :text-style '(:fix nil nil))
  -                (format stream "~{~A~^ ~}"
  -                        (mapcar #'gesture-name (reverse (first gestures-list)))))
  -           when (not (null (rest gestures-list)))
  -           do (princ ", " stream))
  +	      do (with-drawing-options (stream :ink +dark-blue+
  +					       :text-style '(:fix nil nil))
  +		   (format stream "~{~A~^ ~}"
  +			   (mapcar #'gesture-name (reverse (first gestures-list)))))
  +	      when (not (null (rest gestures-list)))
  +		do (princ ", " stream))
           (terpri stream))
         (terpri stream)
         (print-docstring-for-command command-name command-table stream)
  
positive.code: 
  (defvar *meta-digit-table*
    (loop for i from 0 to 9
         collect (list :keyboard (digit-char i) (make-modifier-state :meta))))
  
  (defun meta-digit (gesture)
    (position gesture *meta-digit-table*
  
negative.code: 	     (cond ((meta-digit first-gesture)
  		    (setf numarg (meta-digit first-gesture)))
  		   (t (setf sign -1)))
  	     (loop for gesture = (first gestures)
  		   while (meta-digit gesture)
  		   do (setf numarg (+ (* 10 numarg) (meta-digit gesture)))
  		      (pop gestures)
  		   finally (return (values (if (and (= sign -1) (= numarg 0))
  					       -1
  					       (* sign numarg))
  					   t gestures)))))
  	  (t (values 1 nil (when first-gesture
                               (cons first-gesture gestures)))))))
  
  