anchor.diff:  (defun substitute-numeric-argument-p (command numargp)
     (substitute numargp *numeric-argument-p* command :test #'eq))
   
  -(defgeneric process-gestures (command-processor))
  +(defgeneric process-gestures (command-processor)
  +  (:documentation "Process the gestures accumulated in
  +`command-processor', returning T if there are no gestures
  +accumulated or the accumulated gestures correspond to a
  +command. In this case, the command will also be executed and the
  +list of accumulated gestures set to NIL. Will return NIL if the
  +accumulated gestures do not yet correspond to a command, but
  +eventually could, if more gestures are provided. Signals
  +`unbound-gesture-sequence' if the accumulated gestures could
  +never refer to a command."))
   
   (defmethod process-gestures ((command-processor command-processor))
     (multiple-value-bind (prefix-arg prefix-p gestures)
  
positive.code:   ;; rescanning of accumulated input data or some yet-unimplemented
    ;; complex state retaining mechanism (such as continuations).
    (loop
       (setf *current-gesture* (esa-read-gesture :command-processor command-processor))
       (unless (process-gesture command-processor *current-gesture*)
         (return))))
  
  
negative.code: 
  (defmethod process-gesture :before ((command-processor asynchronous-command-processor) gesture)
    (when (and (find gesture *abort-gestures*
                :test #'gesture-matches-gesture-name-p)
               (directly-processing-p command-processor))
      (setf (accumulated-gestures command-processor) nil)
      (signal 'abort-gesture :event gesture)))
  
  (defclass command-loop-command-processor (command-processor)
  