[slime-cvs] CVS update: slime/swank.lisp

[Helmut Eller]

Update of /project/slime/cvsroot/slime
In directory common-lisp.net:/tmp/cvs-serv20037

Modified Files:
	swank.lisp 
Log Message:
(compile-file-for-emacs): Use with-buffer-syntax so that SBCL source
files can be compiled.
Date: Sun Sep 12 22:41:12 2004
Author: heller

Index: slime/swank.lisp
diff -u slime/swank.lisp:1.227 slime/swank.lisp:1.228
--- slime/swank.lisp:1.227	Fri Sep  3 23:12:00 2004
+++ slime/swank.lisp	Sun Sep 12 22:41:07 2004
@@ -1514,7 +1514,8 @@
 (defslimefun compile-file-for-emacs (filename load-p)
   "Compile FILENAME and, when LOAD-P, load the result.
 Record compiler notes signalled as `compiler-condition's."
-  (swank-compiler (lambda () (swank-compile-file filename load-p))))
+  (with-buffer-syntax ()
+    (swank-compiler (lambda () (swank-compile-file filename load-p)))))
 
 (defslimefun compile-string-for-emacs (string buffer position directory)
   "Compile STRING (exerpted from BUFFER at POSITION).