anchor.diff:    (lisp-info-popup (get-buffer-create "*error*")
                      #'(lambda (out)
                          (format out "~a~%~%" condition)
  -                       (uiop/image:print-backtrace :stream out :count 100))))
  +                       (uiop/image:print-backtrace :stream out :count 100))
  +                   nil))
   
   (defmacro with-safe-form (&body body)
     `(handler-case
  
positive.code:     (unless error-p
        (lisp-info-popup (get-buffer-create buffer-name)
                         #'(lambda (out)
                             (pprint expr out))))))
  
  (define-key *lisp-mode-keymap* (kbd "C-x m") 'lisp-macroexpand)
  (define-command lisp-macroexpand () ()
  
negative.code:     (unless error-p
        (lisp-info-popup (get-buffer-create "*describe*")
                         #'(lambda (out)
                             (describe name out))
                         nil))))
  
  (define-key *lisp-mode-keymap* (kbd "C-x M-d") 'lisp-disassemble-symbol)
  (define-command lisp-disassemble-symbol () ()
  