[Git][cmucl/cmucl][master] Really don't print the herald when -quiet is given.

Raymond Toy rtoy at common-lisp.net
Tue Sep 1 03:52:06 UTC 2015

Raymond Toy pushed to branch master at cmucl / cmucl

b8654321 by Raymond Toy at 2015-08-31T20:51:55Z
Really don't print the herald when -quiet is given.

The previous implementation cleared *herald-items* when -quiet was
given, but if the init file loaded up items that added to
*herald-items*, then the items were still printed.  Plus, it seems odd
that -quiet actually clears *herald-items*.

So, just don't print herald if -quiet is given, but also preserve
*herald-items* so that (print-herald) would actually print the actual

- - - - -

1 changed file:

- src/code/save.lisp


--- a/src/code/save.lisp
+++ b/src/code/save.lisp
@@ -254,8 +254,7 @@
                        *compile-print* nil
                        *compile-progress* nil
                        *require-verbose* nil
-                       *gc-verbose* nil
-                       *herald-items* nil))
+                       *gc-verbose* nil))
 	       (when (and process-command-line
 			  (or (find-switch "help")
 			      (find-switch "-help")))
@@ -280,12 +279,15 @@
 			     :if-does-not-exist nil)
 		       (or (load "home:init" :if-does-not-exist nil)
 			   (load "home:.cmucl-init"
-				 :if-does-not-exist nil))))))
-	     (when process-command-line
-	       (ext::invoke-switch-demons *command-line-switches*
-					  *command-switch-demons*))
-	     (when print-herald
-	       (print-herald))))
+				 :if-does-not-exist nil)))))
+	       (when process-command-line
+		 (ext::invoke-switch-demons *command-line-switches*
+					    *command-switch-demons*))
+	       (when (and print-herald
+			  (not (and process-command-line
+				    (find-switch "quiet"))))
+		 ;; Don't print the herald if -quiet is given.
+		 (print-herald)))))
 	 (funcall init-function))
        (restart-lisp ()

View it on GitLab: https://gitlab.common-lisp.net/cmucl/cmucl/commit/b8654321e9bb003da77dbf9eabd8d69cba7e6b29
-------------- next part --------------
An HTML attachment was scrubbed...
URL: <https://mailman.common-lisp.net/pipermail/cmucl-cvs/attachments/20150901/24c1118d/attachment.html>

More information about the cmucl-cvs mailing list