anchor.diff:                        nil
                         (lambda () (lisp-echo-arglist)))))
   
  -(define-key *lisp-mode-keymap* (kbd "C-x ;") 'lisp-comment-or-uncomment-region)
  +(define-key *lisp-mode-keymap* (kbd "C-c ;") 'lisp-comment-or-uncomment-region)
   (define-command lisp-comment-or-uncomment-region (arg) ("P")
     (if arg
         (lisp-uncomment-region)
  
positive.code: (define-command lisp-eval-defun () ()
    (lisp-move-and-eval-sexp #'top-of-defun #'lisp-eval-string))
  
  (define-key *lisp-mode-keymap* (kbd "C-x C-e") 'lisp-eval-last-sexp)
  (define-command lisp-eval-last-sexp () ()
    (lisp-move-and-eval-sexp #'backward-sexp #'lisp-eval-string))
  
  (define-key *lisp-mode-keymap* (kbd "C-x l") 'lisp-load-file)
  (define-key *lisp-mode-keymap* (kbd "C-x C-l") 'lisp-load-file)
  (define-command lisp-load-file (filename) ("fLoad File: ")
    (when (and (cl-fad:file-exists-p filename)
               (not (cl-fad:directory-pathname-p filename)))
  
negative.code:                (symbolp x))
        (lisp-get-arglist x))))
  
  (define-key *lisp-mode-keymap* (kbd "C-c M-h") 'lisp-echo-arglist)
  (define-command lisp-echo-arglist () ()
    (save-excursion
     (when (sexp-goto-car 100)
  