anchor.diff:           (end (region-end)))
        (point-set end)
        (skip-chars-forward '(#\space #\tab))
  -     (unless (eolp)
  -       (insert-newline 1))
        (point-set start)
        (let ((charpos (point-charpos start)))
          (apply-region-lines start end
                              #'(lambda ()
  -                               (set-charpos charpos)
  +                               (end-of-line)
  +                               (if (< charpos (current-charpos))
  +                                   (set-charpos charpos)
  +                                   (beginning-of-line))
                                  (unless (blank-line-p)
                                    (insert-string ";; "))))))))
   
  
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:     (lisp-print-values values)
      (listener-reset-prompt)))
  
  (define-key *lisp-repl-mode-keymap* (kbd "C-c M-p") 'lisp-repl-set-package)
  (define-command lisp-repl-set-package () ()
    (lisp-set-package)
    (listener-reset-prompt)
  