anchor.diff:            lisp-mode
             lisp-indent-line
             lisp-newline-and-indent
  -          eval-string
  -          eval-region
  -          eval-defun
  -          eval-last-sexp
  -          eval-buffer
  -          load-file
  -          macroexpand-lisp
  +          lisp-eval-string
  +          lisp-eval-region
  +          lisp-eval-defun
  +          lisp-eval-last-sexp
  +          lisp-eval-buffer
  +          lisp-load-file
  +          lisp-macroexpand
             lisp-describe-symbol
             lisp-indent-region
             lisp-indent-sexp
  -          complete-symbol
  +          lisp-complete-symbol
             lisp-comment-region
             popup-scratch-buffer
             *scratch-mode-keymap*
  
positive.code:                    #'(lambda (out)
                         (describe (read-from-string name) out))))
  
  (define-key *lisp-mode-keymap* (kbd "M-C-i") 'complete-symbol)
  (define-command complete-symbol () ()
    (let* ((end (point))
           (begin (prog2 (backward-sexp)
                      (point)
  
negative.code:                       (window-cur-linum)))
               (window-cur-col))))))
  
  (defun %count-sexps (goal)
    (do ((count 0 (1+ count)))
        ((or (not (forward-sexp 1 t))
             (eobp)
  