anchor.diff:                           #'editor-abort-handler)
                          (editor-condition
                            #'editor-condition-handler))
  -          (handler-bind ((editor-condition
  -                           #'editor-condition-handler!))
  -            (read-command-and-call)))
  +          (read-command-and-call))
         (editor-condition (c)
           (restart-case (error c)
             (lem-restart:message ()
  
positive.code: 
           (editor-condition-handler (c)
             (declare (ignore c))
             (stop-record-key))
  
           (editor-condition-handler! (c)
             (dolist (function (gethash (type-of c) *editor-condition-handlers*))
               (funcall function c))))
  
      (redraw)
  
  
negative.code:               (current-buffer))
      (setf (current-buffer) (window-buffer (current-window)))))
  
  (defun command-loop-body ()
    (flet ((redraw ()
             (when (= 0 (event-queue-length))
  