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

[Helmut Eller]

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

Modified Files:
	swank-loader.lisp 
Log Message:
(compile-files-if-needed-serially): Reduce verbosity by setting the
:print argument for compile-file to nil.

Date: Thu Feb 24 19:10:42 2005
Author: heller

Index: slime/swank-loader.lisp
diff -u slime/swank-loader.lisp:1.36 slime/swank-loader.lisp:1.37
--- slime/swank-loader.lisp:1.36	Sun Oct  3 14:10:48 2004
+++ slime/swank-loader.lisp	Thu Feb 24 19:10:42 2005
@@ -73,9 +73,9 @@
                 (when (or needs-recompile
                           (not (probe-file binary-pathname))
                           (file-newer-p source-pathname binary-pathname))
-                  (format t "~&;; Compiling ~A...~%" source-pathname)
                   (ensure-directories-exist binary-pathname)
-                  (compile-file source-pathname :output-file binary-pathname)
+                  (compile-file source-pathname :output-file binary-pathname
+                                :print nil :verbose t)
                   (setq needs-recompile t))
                 (load binary-pathname :verbose t))
             #+(or)
@@ -100,4 +100,3 @@
 
 (when (user-init-file)
   (load (user-init-file)))
-