[slime-cvs] CVS slime

[trittweiler]

Update of /project/slime/cvsroot/slime
In directory clnet:/tmp/cvs-serv31749

Modified Files:
	swank-loader.lisp 
Log Message:

* swank-loader.lisp (compile-files-if-needed-serially): Added
  missing `load' argument to function definition on Corman Lisp /
  ECL.


--- /project/slime/cvsroot/slime/swank-loader.lisp	2007/09/14 12:41:28	1.73
+++ /project/slime/cvsroot/slime/swank-loader.lisp	2007/10/22 09:34:04	1.74
@@ -166,12 +166,13 @@
             (handle-loadtime-error c binary-pathname)))))))
 
 #+(or cormanlisp ecl)
-(defun compile-files-if-needed-serially (files fasl-directory)
+(defun compile-files-if-needed-serially (files fasl-directory load)
   "Corman Lisp and ECL have trouble with compiled files."
   (declare (ignore fasl-directory))
-  (dolist (file files)
-    (load file :verbose t)
-    (force-output)))
+  (when load
+    (dolist (file files)
+      (load file :verbose t)
+      (force-output))))
 
 (defun load-user-init-file ()
   "Load the user init file, return NIL if it does not exist."