anchor.diff:  
   (define-key *lisp-mode-keymap* (kbd "C-x M") 'lisp-macroexpand-all)
   (define-command lisp-macroexpand-all () ()
  -  (%lisp-macroexpand #'macroexpand "*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: ")
  
positive.code:                                    (point-set start))))
                  nil)))
            (setq expr
                  (funcall macroexpand-fn expr))))
      (unless error-p
        (lisp-info-popup (get-buffer-create buffer-name)
                         #'(lambda (out)
  
negative.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))))
  