anchor.diff:  (defun eval-from-string (str)
     (eval (string-to-exps str)))
   
  +(defun lisp-error-clause (cdt)
  +  (let* ((buffer (get-buffer-create "*Error*"))
  +         (out (make-buffer-output-stream buffer)))
  +    (popup buffer
  +           (lambda ()
  +             (princ cdt out)))))
  +
   (defun safe-eval-from-string-1 (str)
     (unless (get-buffer "*REPL*")
       (let ((*current-window* *current-window*))
  
positive.code: 
  (define-key *lisp-mode-keymap* "C-xl" 'load-file)
  (define-command load-file (filename) ("fLoad File: ")
    (when (and (file-exist-p filename)
               (not (file-directory-p filename)))
      (write-message
       (format nil "~a"
               (load filename)))))
  
  (define-key *lisp-mode-keymap* "C-xz" 'go-to-lisp)
  (define-key *lisp-mode-keymap* "M-z" 'go-to-lisp)
  
negative.code:                                      (buffer-output-stream-linum out)
                                       (buffer-output-stream-column out))))
                       (error (cdt)
                              (lisp-error-clause cdt))))))))
             (mi-thread
              (bt:make-thread
               (lambda ()
  