anchor.diff:    (defun slime-eval-internal (sexp &optional (package (current-package)))
       (m swank-protocol:emacs-rex sexp)))
   
  -(defun eval-async (form &optional cont thread)
  +(defun eval-async (form &optional cont thread package)
     (swank-protocol:emacs-rex
      *connection*
      form
  
positive.code:                         (funcall cont result)))
                       ((:abort condition)
                        (message "Evaluation aborted on ~A." condition))))
     :thread thread))
  
  (defun eval-with-transcript (form)
    (swank-protocol:emacs-rex
  
negative.code:   t)
  
  (defun read-package-name ()
    (check-connection)
    (let ((package-names (mapcar #'string-downcase
                                 (slime-eval-internal
                                  '(swank:list-all-package-names t)))))
  