anchor.diff:          (push str *inferior-lisp-log*)
           (end-of-buffer)
           (insert-newline 1)
  -        (insert-string (write-to-string (safe-eval-from-string str)))
  +        (multiple-value-bind (value error-p)
  +            (safe-eval-from-string str)
  +          (declare (ignore error-p))
  +          (insert-string (write-to-string value)))
  +        (end-of-buffer)
           (insert-newline 1)
  -        (insert-string "> ")
  +        (insert-string *inferior-lisp-prompt*)
           (setq *inferior-lisp-last-point* (point))))))
   
   (define-key *inferior-lisp-mode-keymap* (kbd "M-p") 'inferior-lisp-prev)
  
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:   (unless (get-buffer "*REPL*")
      (let ((*current-window* *current-window*))
        (inferior-lisp)))
    (let ((val)
          (error-p))
      (labels ((eval-thread-closure
                ()
                (let ((out
  