cmucl-cvs

Thread Start a new thread

Download

cmucl-cvs@common-lisp.net

September 2015

1 participants
2 discussions

[Git][cmucl/cmucl] Pushed new branch rtoy-mmap-anon-control-and-binding-stacks
by Raymond Toy 30 Sep '15

30 Sep '15

Raymond Toy pushed new branch rtoy-mmap-anon-control-and-binding-stacks at cmucl / cmucl

1 0

[Git][cmucl/cmucl][master] Really don't print the herald when -quiet is given.
by Raymond Toy 01 Sep '15

01 Sep '15

Raymond Toy pushed to branch master at cmucl / cmucl Commits: 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 herald. - - - - - 1 changed file: - src/code/save.lisp Changes: ===================================== 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 () (unix:unix-exit View it on GitLab: https://gitlab.common-lisp.net/cmucl/cmucl/commit/b8654321e9bb003da77dbf9ea…

1 0