anchor.diff:                        (*standard-input* (make-minibuffer-input-stream))
                         (*getch-wait-flag* t))
                     (handler-case
  -                      (handler-bind ((error #'lisp-error-clause))
  +                      (handler-bind ((error #'lisp-debugger))
                           (setq values
                                 (unwind-protect
                                   (prog1 (multiple-value-list
  
positive.code:               (dolist (v values)
                  (insert-string (write-to-string v))
                  (insert-newline 1)))))))))
  
negative.code:                                      (buffer-output-stream-point out))))
                                  (getch-clear-queue))))
                      (error (cdt)
                             (setf error-p t)
                             (setf values (list cdt)))))))
               (mi-thread-closure
                ()
                (loop
  