anchor.diff:                    (do ((count 0 (1+ count)))
                         ((point< start-point (point))
                          (1- count))
  -                      (unless (forward-sexp)
  -                        (return count))
  -                      (skip-chars-forward 'syntax-space-char-p)
  -                      (when (and (= count 0)
  -                                 (= first-linum (window-cur-linum)))
  -                        (setq cadr-col (window-cur-col))))
  +                    (unless (forward-sexp)
  +                      (return count))
  +                    (skip-chars-forward 'syntax-space-char-p)
  +                    (when (and (= count 0)
  +                               (= first-linum (window-cur-linum)))
  +                      (setq cadr-col (window-cur-col))))
                     (point-set point))))))
       (let ((chars))
         (skip-chars-forward
  
positive.code:   (insert-newline n)
    (lisp-indent-line))
  
  (define-command eval-region (&optional begin end) ("r")
    (unless (or begin end)
      (setq begin (region-beginning))
      (setq end (region-end)))
    (write-message
     (format nil "~a"
             (eval (read-from-string
                    (region-string begin end))))))
  
  (define-key *lisp-mode-keymap* "M-C-x" 'eval-defun)
  (define-command eval-defun () ()
  
negative.code:                        (unless 1)
                         (dotimes 1)
                         (dolist 1)
                         (multiple-value-bind 3)
                         (do 3)
                         ))
            (setf (get (car elt) 'lisp-indent) (cadr elt))))
  
  