anchor.diff:             (subseq comp-str (length str)))))
         t)))
   
  +(defvar *inferior-lisp-prompt* "* ")
  +
   (defvar *inferior-lisp-log* nil)
   (defvar *inferior-lisp-log-back* nil)
   (defvar *inferior-lisp-last-point* nil)
  
positive.code:       (setq *mi-thread* (bt:make-thread #'mi-thread-closure))
        (bt:join-thread *eval-thread*)
        (bt:destroy-thread *mi-thread*))
      val))
  
  (defun safe-eval-from-string (x)
    (handler-case (safe-eval-from-string-1 x)
  
negative.code:                                       (buffer-output-stream-linum out)
                                        (buffer-output-stream-column out)))))
                      (error (cdt)
                             (setq error-p t)
                             (setq val cdt))))))
               (mi-thread-closure
                ()
  