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:                    (setq num-insert-spaces (+ start-pos 2)))))))))))
      num-insert-spaces))
  
  (define-key *lisp-mode-keymap* (kbd "M-C-q") 'lisp-indent-sexp)
  (define-command lisp-indent-sexp () ()
    (indent-region (current-point)
                   (save-excursion
  
negative.code:       (pprint v out))
      (point-set (buffer-output-stream-point out))))
  
  (define-key *lisp-mode-keymap* (kbd "C-c C-j") 'lisp-eval-print-last-sexp)
  (define-command lisp-eval-print-last-sexp () ()
    (lisp-move-and-eval-sexp
     #'backward-sexp
  