CVS slime

[CVS User heller]

Update of /project/slime/cvsroot/slime
In directory alpha-cl-net:/tmp/cvs-serv20138

Modified Files:
	ChangeLog swank-sbcl.lisp 
Log Message:
* swank-sbcl.lisp (swank-compile-string): Don't call LOAD inside
WITH-COMPILATION-UNIT.

--- /project/slime/cvsroot/slime/ChangeLog	2013/09/29 13:45:42	1.2406
+++ /project/slime/cvsroot/slime/ChangeLog	2013/10/31 07:55:49	1.2407
@@ -1,3 +1,8 @@
+2013-10-31  Helmut Eller  <heller at common-lisp.net>
+
+	* swank-sbcl.lisp (swank-compile-string): Don't call LOAD inside
+	WITH-COMPILATION-UNIT.
+
 2013-09-29  Helmut Eller  <heller at common-lisp.net>
 
 	For CCL, also search definitions of p2 translators.
--- /project/slime/cvsroot/slime/swank-sbcl.lisp	2013/02/02 10:11:16	1.328
+++ /project/slime/cvsroot/slime/swank-sbcl.lisp	2013/10/31 07:55:49	1.329
@@ -679,19 +679,19 @@
     (flet ((load-it (filename)
              (when filename (load filename)))
            (compile-it (cont)
-             (with-compilation-hooks ()
-               (with-compilation-unit
-                   (:source-plist (list :emacs-buffer buffer
-                                        :emacs-filename filename
-                                        :emacs-string string
-                                        :emacs-position position)
-                    :source-namestring filename
-                    :allow-other-keys t)
-                 (multiple-value-bind (output-file warningsp failurep)
-                     (compile-file *buffer-tmpfile* :external-format :utf-8)
-                   (declare (ignore warningsp))
-                   (unless failurep
-                     (funcall cont output-file)))))))
+             (multiple-value-bind (output-file warningsp failurep)
+                 (with-compilation-hooks ()
+                   (with-compilation-unit
+                       (:source-plist (list :emacs-buffer buffer
+                                            :emacs-filename filename
+                                            :emacs-string string
+                                            :emacs-position position)
+                        :source-namestring filename
+                        :allow-other-keys t)
+                     (compile-file *buffer-tmpfile* :external-format :utf-8)))
+               (declare (ignore warningsp))
+               (unless failurep
+                 (funcall cont output-file)))))
       (with-open-file (s *buffer-tmpfile* :direction :output :if-exists :error
                          :external-format :utf-8)
         (write-string string s))