(defadvice compile-file): Return all values from the real compile-file.

antifuchs · Aug 10, 2005 · 148a69e · 148a69e
1 parent 31281a5
commit 148a69e
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/swank-lispworks.lisp b/swank-lispworks.lisp
@@ -388,7 +388,7 @@ Return NIL if the symbol is unbound."
 
 (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)