anchor.diff:  
   (defmacro with-error-handler (() &body body)
     `(handler-case-bind (#'(lambda (condition)
  -                           (handler-case (popup-backtrace condition)
  -                             (error (condition)
  -                                    (exit-editor
  -                                     (with-output-to-string (stream)
  -                                       (princ condition stream)
  -                                       (uiop/image:print-backtrace
  -                                        :stream stream
  -                                        :condition condition))))))
  +                           (handler-bind ((error #'bailout))
  +                             (popup-backtrace condition)))
                          ,@body)
                         ((condition) (declare (ignore condition)))))
   
  
positive.code:   (check-init)
    (lem-1 args))
  
  (defun save-error (condition)
    (with-open-file (out *lem-error-file*
                         :direction :output
                         :if-exists :supersede
                         :if-does-not-exist :create)
      (let ((*print-circle* t))
        (format out "~&~%~%~%~%~a~%" condition)
        (format out "~s~%"
                (lem.queue:queue-to-list *input-history*))
        (uiop/image:print-backtrace :stream out :count 100)
        (exit-editor
         (with-output-to-string (stream)
           (princ condition stream)
           (uiop/image:print-backtrace
            :stream stream
            :condition condition))))))
  
  (defun dired-buffer (filename)
    (save-excursion
  
negative.code:         (nil)
        (with-error-handler ()
          (if *debug-p*
              (handler-bind ((error #'bailout)
                             #+sbcl (sb-sys:interactive-interrupt #'bailout))
                (body))
              (body))))))
  
  