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:                        (unless 1)
                         (dotimes 1)
                         (dolist 1)
                         ))
            (setf (get (car elt) 'lisp-indent) (cadr elt))))
  
  
negative.code:       (eval-region)
        (point-set point)
        t)))
  
  (define-key *lisp-mode-keymap* "C-xy" 'eval-buffer)
  (define-command eval-buffer () ()
    (let ((point (point)))
      (eval-region (progn (beginning-of-buffer) (point))
                   (progn (end-of-buffer) (point)))
      (point-set point)
      t))
  