anchor.diff:                         (unless 1)
                          (dotimes 1)
                          (dolist 1)
  +                       (multiple-value-bind 3)
  +                       (do 3)
                          ))
             (setf (get (car elt) 'lisp-indent) (cadr elt))))
   
  
positive.code:                   (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))))
                    (point-set point))))))
      (let ((chars))
        (skip-chars-forward
  
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))
  