From rtoy at common-lisp.net Tue Sep 1 03:52:06 2015 From: rtoy at common-lisp.net (Raymond Toy) Date: Tue, 01 Sep 2015 03:52:06 +0000 Subject: [Git][cmucl/cmucl][master] Really don't print the herald when -quiet is given. Message-ID: <55e520e625e42_1af7202bfb46854f@lisp.not.org.mail> 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/b8654321e9bb003da77dbf9eabd8d69cba7e6b29 -------------- next part -------------- An HTML attachment was scrubbed... URL: From rtoy at common-lisp.net Wed Sep 30 02:40:53 2015 From: rtoy at common-lisp.net (Raymond Toy) Date: Wed, 30 Sep 2015 02:40:53 +0000 Subject: [Git][cmucl/cmucl] Pushed new branch rtoy-mmap-anon-control-and-binding-stacks Message-ID: <560b4bb5e6b8c_6acb14a6590797ba@lisp.not.org.mail> Raymond Toy pushed new branch rtoy-mmap-anon-control-and-binding-stacks at cmucl / cmucl -------------- next part -------------- An HTML attachment was scrubbed... URL: