anchor.diff:    event-based command processing schemes."))
   
   (defmethod (setf executingp) :after ((new-val (eql t)) (drei instant-macro-execution-mixin))
  -  (loop
  -     until (null (remaining-keys drei))
  -     for gesture = (pop (remaining-keys drei))
  -     do (process-gesture drei gesture)
  -     finally (setf (executingp drei) nil)))
  +  (loop until (null (remaining-keys drei))
  +	for gesture = (pop (remaining-keys drei))
  +	do (process-gesture drei gesture)
  +	finally (setf (executingp drei) nil)))
   
   (defclass asynchronous-command-processor (command-processor
                                             instant-macro-execution-mixin)
  
positive.code:                (cond ((and (characterp gesture)
  			   (digit-char-p gesture 10))
                        (setf numarg (digit-char-p gesture 10))
  		      (loop
                           for gesture = (first gestures)
                           while (and (characterp gesture)
                                      (digit-char-p gesture 10))
                           do
                           (setf numarg (+ (* 10 numarg)
                                           (digit-char-p gesture 10)))
                           (pop gestures)
                           finally (return (values (* numarg sign) t gestures))))
  		     (t
  		      (values (if (minusp sign) -1 numarg) t
                                (when gesture
  
negative.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*
  