Index: swank-sbcl.lisp
===================================================================
RCS file: /project/slime/cvsroot/slime/swank-sbcl.lisp,v
retrieving revision 1.99
diff -u -r1.99 swank-sbcl.lisp
--- swank-sbcl.lisp	3 Sep 2004 21:10:35 -0000	1.99
+++ swank-sbcl.lisp	9 Sep 2004 17:23:57 -0000
@@ -287,12 +287,15 @@
 (defvar *trap-load-time-warnings* nil)
 
 (defimplementation swank-compile-file (filename load-p)
-  (handler-case
-      (let ((output-file (with-compilation-hooks ()
-                           (compile-file filename))))
+  (let ((*package* swank::*buffer-package*))
+    (handler-case
+        (let ((output-file (with-compilation-hooks ()
+                             (swank::with-buffer-syntax ()
+                               (compile-file filename)))))
         (when (and load-p output-file)
-          (load output-file)))
-    (sb-c:fatal-compiler-error () nil)))
+          (swank::with-buffer-syntax ()
+            (load output-file))))
+      (sb-c:fatal-compiler-error () nil))))
 
 (defimplementation swank-compile-string (string &key buffer position directory)
   (declare (ignore directory))