anchor.diff:                                   nil
                                    (lisp-current-package))))
         (when (buffer-modified-p output-buffer)
  -        (lisp-info-popup output-buffer)))))
  +        (lisp-info-popup output-buffer
  +                         nil
  +                         nil)))))
   
   (define-key *lisp-mode-keymap* (kbd "C-x r") 'lisp-eval-region)
   (define-command lisp-eval-region (&optional begin end) ("r")
  
positive.code:                            for i from 1
                             do (format out "~&[~d] ~a~%" i choice))
                           (terpri out)
                           (uiop/image:print-backtrace :stream out :count 100)))
      (loop
        (window-update-all)
        (let* ((str (catch 'abort (minibuf-read-string "Debug: ")))
  
negative.code:     (unless error-p
        (lisp-info-popup (get-buffer-create buffer-name)
                         #'(lambda (out)
                             (pprint expr out))
                         t))))
  
  (define-key *lisp-mode-keymap* (kbd "C-x m") 'lisp-macroexpand)
  (define-command lisp-macroexpand () ()
  