anchor.diff:      (refresh-output-buffer)
       (eval-async `(swank:compile-file-for-emacs ,file t)
                   #'compilation-finished
  -                t)
  +                t
  +                (buffer-package (current-buffer)))
       (start-eval-timer)))
   
   (define-command slime-compile-region (start end) ("r")
  
positive.code:   t)
  
  (defun read-package-name ()
    (let ((package-names (mapcar #'string-downcase
                                 (slime-eval-internal
                                  '(swank:list-all-package-names t)))))
  
negative.code:                         (funcall cont result)))
                       ((:abort condition)
                        (message "Evaluation aborted on ~A." condition))))
     :thread thread
     :package package))
  
  (defun eval-with-transcript (form)
    (swank-protocol:emacs-rex
  