Skip to content
Snippets Groups Projects
Commit b8654321 authored by Raymond Toy's avatar Raymond Toy
Browse files

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
herald.
parent f766bd33
No related branches found
No related tags found
No related merge requests found
...@@ -254,8 +254,7 @@ ...@@ -254,8 +254,7 @@
*compile-print* nil *compile-print* nil
*compile-progress* nil *compile-progress* nil
*require-verbose* nil *require-verbose* nil
*gc-verbose* nil *gc-verbose* nil))
*herald-items* nil))
(when (and process-command-line (when (and process-command-line
(or (find-switch "help") (or (find-switch "help")
(find-switch "-help"))) (find-switch "-help")))
...@@ -280,12 +279,15 @@ ...@@ -280,12 +279,15 @@
:if-does-not-exist nil) :if-does-not-exist nil)
(or (load "home:init" :if-does-not-exist nil) (or (load "home:init" :if-does-not-exist nil)
(load "home:.cmucl-init" (load "home:.cmucl-init"
:if-does-not-exist nil)))))) :if-does-not-exist nil)))))
(when process-command-line (when process-command-line
(ext::invoke-switch-demons *command-line-switches* (ext::invoke-switch-demons *command-line-switches*
*command-switch-demons*)) *command-switch-demons*))
(when print-herald (when (and print-herald
(print-herald)))) (not (and process-command-line
(find-switch "quiet"))))
;; Don't print the herald if -quiet is given.
(print-herald)))))
(funcall init-function)) (funcall init-function))
(restart-lisp () (restart-lisp ()
(unix:unix-exit (unix:unix-exit
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment