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:   (check-connection)
    (interactive-eval string))
  
  (define-command lisp-eval-last-expression () ()
    (check-connection)
    (with-point ((start (current-point))
                 (end (current-point)))
      (form-offset start -1)
      (interactive-eval (points-to-string start end))))
  
  (define-command lisp-eval-defun () ()
    (check-connection)
  
negative.code:              :package package))
  
  (defun lisp-eval-internal (emacs-rex-fun rex-arg package)
    (let ((tag (gensym))
          (thread-id (current-swank-thread)))
      (catch tag
        (funcall emacs-rex-fun
                 *connection*
  