[slime-cvs] CVS slime

[CVS User trittweiler]

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

Modified Files:
	ChangeLog swank-sbcl.lisp 
Log Message:
	* swank-sbcl.lisp (swank-compile-string): Make sure that it
	returns NIL on compilation failure.


--- /project/slime/cvsroot/slime/ChangeLog	2009/08/10 19:30:32	1.1832
+++ /project/slime/cvsroot/slime/ChangeLog	2009/08/11 09:15:02	1.1833
@@ -1,3 +1,8 @@
+2009-08-11  Tobias C. Rittweiler  <tcr at freebits.de>
+
+	* swank-sbcl.lisp (swank-compile-string): Make sure that it
+	returns NIL on compilation failure.
+
 2009-08-10  Helmut Eller  <heller at common-lisp.net>
 
 	* slime.el (slime-insert-note-group): Factored out from
--- /project/slime/cvsroot/slime/swank-sbcl.lisp	2009/08/10 19:30:22	1.248
+++ /project/slime/cvsroot/slime/swank-sbcl.lisp	2009/08/11 09:15:03	1.249
@@ -629,7 +629,10 @@
                                         :emacs-filename filename
                                         :emacs-string string
                                         :emacs-position position))
-                 (funcall cont (compile-file temp-file-name))))))
+                 (multiple-value-bind (output-file warningsp failurep)
+                     (compile-file temp-file-name)
+                   (unless failurep
+                     (funcall cont output-file)))))))
       (with-open-file (s temp-file-name :direction :output :if-exists :error)
         (write-string string s))
       (unwind-protect