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:       (eval-region)
        (point-set point)
        t)))
  
negative.code:                        (unless 1)
                         (dotimes 1)
                         (dolist 1)
                         (multiple-value-bind 3)
                         (do 3)
                         ))
            (setf (get (car elt) 'lisp-indent) (cadr elt))))
  
  