anchor.diff:      (handler-case
           (handler-bind ((error #'lisp-debugger))
             (setq results
  -                (multiple-value-list
  -                 (restart-case (lisp-eval-in-package
  -                                (%string-to-exps string)
  -                                package)
  -                   (abort () :report "Abort."))))
  +                (restart-case (lisp-eval-in-package
  +                               (%string-to-exps string)
  +                               package)
  +                  (abort () :report "Abort.")))
             (when update-point-p
               (point-set
                (buffer-output-stream-point io))))
  
positive.code:   (let* ((string (write-to-string expr))
           (*package* (find-package package)))
      (setq *allow-interrupt-p* t)
      (eval (read-from-string string))
      (setq *allow-interrupt-p* nil)))
  
  (defun eval-string (string output-buffer point
                             &optional
  
negative.code:                                    (point-set start))))
                  nil)))
            (setq expr
                  (car
                   (lisp-eval-in-package `(,macroexpand-symbol ',expr)
                                         (lisp-current-package))))
            (when (eq (window-buffer)
                      (get-buffer buffer-name))
              (let ((*kill-disable-p* t))
  