[slime-cvs] CVS slime

[CVS User heller]

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

Modified Files:
	swank.lisp 
Log Message:
(compile-file-for-emacs): Update for chanded backends.

--- /project/slime/cvsroot/slime/swank.lisp	2008/10/10 06:09:32	1.600
+++ /project/slime/cvsroot/slime/swank.lisp	2008/10/16 21:15:33	1.601
@@ -2480,9 +2480,12 @@
      (lambda ()
        (let ((pathname (filename-to-pathname filename))
              (*compile-print* nil) (*compile-verbose* t))
-         (swank-compile-file pathname load-p
-                             (or (guess-external-format pathname)
-                                 :default)))))))
+         (multiple-value-bind (output-pathname warnings? failure?)
+             (swank-compile-file pathname load-p
+                                 (or (guess-external-format pathname)
+                                     :default))
+           (declare (ignore output-pathname warnings?))
+           (not failure?)))))))
 
 (defslimefun compile-string-for-emacs (string buffer position directory debug)
   "Compile STRING (exerpted from BUFFER at POSITION).