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

[Helmut Eller]

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

Modified Files:
	swank-sbcl.lisp 
Log Message:
(compile-file-for-emacs): Load the fasl file regardless of f-p. 
Date: Thu Feb 26 02:15:51 2004
Author: heller

Index: slime/swank-sbcl.lisp
diff -u slime/swank-sbcl.lisp:1.68 slime/swank-sbcl.lisp:1.69
--- slime/swank-sbcl.lisp:1.68	Tue Feb 24 18:31:34 2004
+++ slime/swank-sbcl.lisp	Thu Feb 26 02:15:51 2004
@@ -321,7 +321,7 @@
   (with-compilation-hooks ()
     (multiple-value-bind (fasl-file w-p f-p) (compile-file filename)
       (declare (ignore w-p))
-      (cond ((and fasl-file (not f-p) load-p)
+      (cond ((and load-p fasl-file)
              (load fasl-file))
             (t fasl-file)))))