anchor.diff:                                       (buffer-output-stream-linum out)
                                        (buffer-output-stream-column out))))
                        (error (cdt)
  -                            (let* ((buffer (get-buffer-create "*Error*"))
  -                                   (out (make-buffer-output-stream buffer)))
  -                              (popup buffer 
  -                                     (lambda ()
  -                                       (princ cdt out)))))))))))
  +                            (lisp-error-clause cdt))))))))
              (mi-thread
               (bt:make-thread
                (lambda ()
  
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: (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*))
  