anchor.diff:  
   (defun interactive-eval (string)
     (eval-with-transcript `(swank:interactive-eval ,string)))
  +
  +(defun eval-print (string)
  +  (let ((value (lisp-eval `(swank:eval-and-grab-output ,string))))
  +    (insert-string (current-point) (first value))
  +    (insert-string (current-point) (second value))))
   
   (defun new-package (name prompt-string)
     (setf (connection-package *connection*) name)
  
positive.code:                                   (declare (ignore condition))
                                    (editor-error "Synchronous Lisp Evaluation aborted"))))
                 :package package
                 :thread (current-swank-thread))
        (loop (sit-for 10 nil)))))
  
  (defun lisp-eval-from-string (string &optional (package (current-package)))
    (lisp-eval-internal 'emacs-rex-string string package))
  
negative.code:   (check-connection)
    (interactive-eval string))
  
  (define-command lisp-eval-last-expression (p) ("P")
    (check-connection)
    (with-point ((start (current-point))
                 (end (current-point)))
      (form-offset start -1)
      (let ((string (points-to-string start end)))
        (if p
            (eval-print string)
            (interactive-eval string)))))
  
  (define-command lisp-eval-defun () ()
    (check-connection)
  