anchor.diff:                                                   ,(buffer-filename (current-buffer))
                                                    nil)
                   #'compilation-finished
  -                t)
  +                t
  +                (buffer-package (current-buffer)))
       (start-eval-timer)))
   
   (define-command slime-compile-defun () ()
  
positive.code:   (defun slime-eval-internal (sexp &optional (package (current-package)))
      (m swank-protocol:emacs-rex sexp)))
  
  (defun eval-async (form &optional cont thread)
    (swank-protocol:emacs-rex
     *connection*
     form
  
negative.code:   t)
  
  (defun read-package-name ()
    (check-connection)
    (let ((package-names (mapcar #'string-downcase
                                 (slime-eval-internal
                                  '(swank:list-all-package-names t)))))
  