anchor.diff:            lisp-mode
             lisp-indent-line
             lisp-newline-and-indent
  -          eval-string
  -          eval-region
  -          eval-defun
  -          eval-last-sexp
  -          eval-buffer
  -          load-file
  -          macroexpand-lisp
  +          lisp-eval-string
  +          lisp-eval-region
  +          lisp-eval-defun
  +          lisp-eval-last-sexp
  +          lisp-eval-buffer
  +          lisp-load-file
  +          lisp-macroexpand
             lisp-describe-symbol
             lisp-indent-region
             lisp-indent-sexp
  -          complete-symbol
  +          lisp-complete-symbol
             lisp-comment-region
             popup-scratch-buffer
             *scratch-mode-keymap*
  
positive.code:     (cons 'progn (nreverse exps))))
  
  (defun eval-from-string (str)
    (eval (string-to-exps str)))
  
  (defvar *eval-thread*)
  (defvar *mi-thread*)
  
negative.code:      (minibuf-print "interrupt")
       nil)))
  
  (defun lisp-eval-string (str)
    (let ((output-buffer (get-buffer-create "*OUTPUT*")))
      (setf (buffer-modified-p output-buffer) nil)
      (prog1 (minibuf-print
  