anchor.diff:                                 (format nil "~a" cdt)))))
                    (info-popup (get-buffer-create "*output*")
                                #'(lambda (out)
  -                                 (princ x out)))))))))
  +                                 (princ x out))
  +                             nil)))))))
     condition)
   
   (defun eval-string-internal (string output-buffer point
  
positive.code:                 (setq *current-window* (pop-to-buffer buffer))
                  (lisp-print-values values)))))))))
  
  (defun lisp-info-popup (buffer &optional output-function)
    (info-popup buffer output-function t 'lisp-mode))
  
  (setq *auto-mode-alist*
        (append '((".lisp$" . lisp-mode)
  
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 () ()
  