anchor.diff:            *lisp-eval-thread-error-p*))
   
   (defun lisp-eval-string (str)
  -  (let ((output-buffer (get-buffer-create "*OUTPUT*")))
  +  (let ((output-buffer (get-buffer-create "*output*")))
       (setf (buffer-modified-p output-buffer) nil)
       (prog1 (minibuf-print
               (write-to-string
  
positive.code:                 (insert-newline 1)))))))))
  
  (defun lisp-print-error (condition)
    (lisp-info-popup (get-buffer-create "*ERROR*")
                     #'(lambda (out)
                         (format out "~a~%~%" condition)
                         #+sbcl (sb-debug:backtrace 100 out))))
  
negative.code: 
  (define-key *lisp-mode-keymap* (kbd "C-x M") 'lisp-macroexpand-all)
  (define-command lisp-macroexpand-all () ()
    (%lisp-macroexpand #'macroexpand "*macroexpand*"))
  
  (define-key *lisp-mode-keymap* (kbd "C-x d") 'lisp-describe-symbol)
  (define-command lisp-describe-symbol (name) ("sDescribe: ")
  