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

[Martin Simmons]

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

Modified Files:
	swank-lispworks.lisp 
Log Message:
(defadvice compile-file): Return all values from the real compile-file.

Date: Wed Aug 10 17:46:44 2005
Author: msimmons

Index: slime/swank-lispworks.lisp
diff -u slime/swank-lispworks.lisp:1.74 slime/swank-lispworks.lisp:1.75
--- slime/swank-lispworks.lisp:1.74	Tue Jul  5 22:30:59 2005
+++ slime/swank-lispworks.lisp	Wed Aug 10 17:46:43 2005
@@ -388,7 +388,7 @@
 
 (lw:defadvice (compile-file compile-file-and-collect-notes :around)
     (pathname &rest rest)
-  (prog1 (apply #'lw:call-next-advice pathname rest)
+  (multiple-value-prog1 (apply #'lw:call-next-advice pathname rest)
     (when *within-call-with-compilation-hooks*
       (maphash (lambda (unfun dspecs)
                  (dolist (dspec dspecs)