anchor.diff:           (*debug-io* io)
            (*trace-output* io))
       (handler-case
  -        (handler-bind ((error #'lisp-debugger))
  +        (handler-bind ((error #'lisp-debugger)
  +                       #+sbcl (sb-sys:interactive-interrupt #'lisp-debugger))
             (setq results
                   (restart-case (multiple-value-list
                                  (eval (%string-to-exps string package)))
  
positive.code:   condition)
  
  (defun eval-string-internal (string output-buffer point
                                    &optional
                                    update-point-p (package "COMMON-LISP-USER"))
    (let* ((error-p)
           (results)
           (io (make-buffer-io-stream output-buffer point t))
  
negative.code:           (when update-point-p
              (point-set
               (buffer-output-stream-point io))))
        ((or error #+sbcl (sb-sys:interactive-interrupt #'lisp-debugger))
         (condition)
         (setq error-p t)
         (setq results (list condition))))
      (values results error-p)))
  
  (defun eval-string (string output-buffer point
  