anchor.diff:        (setq *mi-thread* (bt:make-thread #'mi-thread-closure))
         (bt:join-thread *eval-thread*)
         (bt:destroy-thread *mi-thread*))
  -    (values val error-p)))
  +    (values values error-p)))
   
   (defun safe-eval-from-string (x)
     (handler-case (safe-eval-from-string-1 x)
  
positive.code:                          (*standard-input* in))
                       (handler-case
                           (handler-bind ((error #'lisp-error-clause))
                             (setq val (eval-from-string str)))
                         (error (cdt)
                                (setq error-p t)
                                (setq val cdt))))))
                  (inferior-lisp-set-point)
                  (set-buffer tmpbuf nil)))
               (mi-thread-closure
  
negative.code:   (unless (get-buffer "*REPL*")
      (let ((*current-window* *current-window*))
        (inferior-lisp)))
    (let ((values)
          (error-p))
      (labels ((eval-thread-closure
                ()
  