anchor.diff:         (funcall (command-executor command-processor)
                   command-processor command)))))
   
  +(defmethod process-gestures-or-command :around ((command-processor command-processor))
  +  (handler-case (call-next-method)
  +    (abort-gesture (c)
  +      ;; If the user aborts, we want to forget whatever previous
  +      ;; gestures he entered since the last command execution.
  +      (setf (accumulated-gestures command-processor) nil)
  +      (signal c))))
  +
   (defmethod process-gestures-or-command ((command-processor command-processor))
     ;; Build up a list of gestures and repeatedly pass them to
     ;; `process-gestures'. This "clumsy" approach is chosen because we
  
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:      do (process-gesture drei gesture)
       finally (setf (executingp drei) nil)))
  
  (defclass asynchronous-command-processor (command-processor
                                            instant-macro-execution-mixin
                                            macrorecord-processed-gestures-mixin)
  