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:   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)))
  
  (defclass asynchronous-command-processor (command-processor
                                            instant-macro-execution-mixin)
  
negative.code:   (unless (null (remaining-keys command-processor))
      (return-from esa-read-gesture
        (pop (remaining-keys command-processor))))
    (loop for gesture = (read-gesture :stream stream)
  	until (proper-gesture-p gesture)
  	finally (return gesture)))
  
  (defun esa-unread-gesture (gesture &key (command-processor *command-processor*)
                             (stream *standard-input*))
  