anchor.diff:                           nil
                            nil)))))
   
  -(define-key *lisp-mode-keymap* (kbd "C-x r") 'lisp-eval-region)
  +(define-key *lisp-mode-keymap* (kbd "C-c C-r") 'lisp-eval-region)
   (define-command lisp-eval-region (&optional begin end) ("r")
     (unless (or begin end)
       (setq begin (region-beginning))
  
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:          (end (region-end)))
       (point-set end)
       (skip-chars-forward '(#\space #\tab))
       (point-set start)
       (let ((charpos (point-charpos start)))
         (apply-region-lines start end
                             #'(lambda ()
                                 (end-of-line)
                                 (if (< charpos (current-charpos))
                                     (set-charpos charpos)
                                     (beginning-of-line))
                                 (unless (blank-line-p)
                                   (insert-string ";; "))))))))
  
  