--- slime-movitz.el.~1.2.~	2004-03-28 15:37:16.000000000 +0200
+++ slime-movitz.el	2004-07-21 05:49:30.000000000 +0200
@@ -88,7 +88,6 @@
                   (movitz::movitz-print 
                    (movitz::movitz-funobj-lambda-list funobj)))
         "(-- <Unknown-Function>)"))
-   (slime-buffer-package)
    (with-lexical-bindings (show-fn fname)
      (lambda (arglist)
        (if show-fn
@@ -102,7 +101,6 @@
   (slime-background-message "Dumping a Movitz image...")
   (slime-eval-async
    '(movitz::dump-image)
-   (slime-buffer-package)
    (with-lexical-bindings (dont-run-bochs-p)
      (slime-background-message
       "Dumping the Movitz image done. Bootblock ID: %d."
@@ -125,7 +123,6 @@
   (slime-background-message "Movitz compiling \"%s\"..." file)
   (slime-eval-async
    `(movitz::movitz-compile-file ,file)
-   (slime-buffer-package)
    (with-lexical-bindings (file)
      (lambda (result)
        (slime-background-message "Movitz compiling \"%s\" done." file)))))
@@ -154,7 +151,6 @@
                  (cl:not movitz::*compiler-do-optimize*)))
           (movitz::movitz-compile-file ,file :delete-file-p t))
       (movitz::movitz-compile-file ,file :delete-file-p t))
-   (slime-buffer-package)
    (with-lexical-bindings (fname ftype)
      (lambda (result)
        (slime-background-message
@@ -180,7 +176,6 @@
                  (cl:*print-base* 16))
           (movitz::movitz-disassemble
            defun-name :recursive ,(not not-recursive-p)))
-       (slime-buffer-package)
        (with-lexical-bindings (defun-type defun-name)
          (lambda (result)
            (slime-background-message
@@ -225,7 +220,6 @@
                (funobj (muerte::movitz-slot-value method 'muerte::function))
                (cl:*print-base* 16))
           (movitz::movitz-disassemble-funobj funobj))
-       (slime-buffer-package)
        (with-lexical-bindings (defun-type defun-name lambda-list)
          (lambda (result)
            (slime-background-message
@@ -236,7 +230,6 @@
        "Movitz disassembling %s %s..." defun-type defun-name)
       (slime-eval-async
        nil
-       (slime-buffer-package)
        (with-lexical-bindings (defun-type defun-name)
          (lambda (result)
            (slime-background-message
@@ -277,7 +270,6 @@
                   (stream ,file :direction :input)
                   (cl:read stream))))
               :common-lisp :muerte.common-lisp))))
-   (slime-buffer-package)
    (with-lexical-bindings (file)
      (lambda (result)
        (delete-file file)
