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: (defun lisp-debugger (condition)
    (let* ((choices (compute-restarts condition))
           (n (length choices)))
      (lisp-info-popup (get-buffer-create "*ERROR*")
                       #'(lambda (out)
                           (format out "~a~%~%" condition)
                           (loop
  
negative.code:                                    (point-set start))))
                  nil)))
            (setq expr
                  (funcall macroexpand-fn expr))
            (when (eq (window-buffer)
                      (get-buffer buffer-name))
              (let ((*kill-disable-p* t))
                (kill-sexp))
              (insert-string
               (with-output-to-string (out)
                 (pprint expr out)))
              (setq expr (read-from-string
                          (region-string (point-min)
                                         (point-max)))))
            expr))
      (unless error-p
        (lisp-info-popup (get-buffer-create buffer-name)
                         #'(lambda (out)
  