anchor.diff:      (setq *inferior-lisp-log* nil)
       (setq *inferior-lisp-last-point* nil)
       (inferior-lisp-mode)
  -    (insert-string "> ")))
  +    (insert-string *inferior-lisp-prompt*)))
   
   (define-key *inferior-lisp-mode-keymap* (kbd "C-m") 'inferior-lisp-eval)
   (define-command inferior-lisp-eval () ()
  
positive.code:            (subseq comp-str (length str)))))
        t)))
  
  (defvar *inferior-lisp-log* nil)
  (defvar *inferior-lisp-log-back* nil)
  (defvar *inferior-lisp-last-point* nil)
  
negative.code:                                       (buffer-output-stream-linum out)
                                        (buffer-output-stream-column out)))))
                      (error (cdt)
                             (setq error-p t)
                             (setq val cdt))))))
               (mi-thread-closure
                ()
  