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

[Helmut Eller]

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

Modified Files:
	swank-cmucl.lisp 
Log Message:
(compile-file-for-emacs): Load the fasl file even irrespective of
COMILE-FILE's third return value.
Date: Wed Feb 25 17:03:40 2004
Author: heller

Index: slime/swank-cmucl.lisp
diff -u slime/swank-cmucl.lisp:1.71 slime/swank-cmucl.lisp:1.72
--- slime/swank-cmucl.lisp:1.71	Wed Feb 25 15:51:50 2004
+++ slime/swank-cmucl.lisp	Wed Feb 25 17:03:39 2004
@@ -365,10 +365,8 @@
   (with-compilation-hooks ()
     (let ((*buffer-name* nil)
           (*compile-filename* filename))
-      (multiple-value-bind (fasl-file warnings-p failure-p)
-          (compile-file filename)
-        (declare (ignore warnings-p))
-        (when (and load-p (not failure-p))
+      (let ((fasl-file (compile-file filename)))
+        (when (and load-p fasl-file)
           (load fasl-file))))))
 
 (defimplementation compile-string-for-emacs (string &key buffer position)