Raymond Toy pushed to branch issue-360-add-site-init at cmucl / cmucl Commits: 98bd9a4b by Raymond Toy at 2024-12-15T18:14:43-08:00 Address review: Silently load site init file. This is how the site init file used to be loaded. Continue silently loading it. - - - - - 814154aa by Raymond Toy at 2024-12-15T18:18:39-08:00 Address review: Remove new herald item about reporting bugs Remove the new herald item saying where to report issues. That should be done in a different issue. - - - - - 1 changed file: - src/code/save.lisp Changes: ===================================== src/code/save.lisp ===================================== @@ -347,8 +347,8 @@ (when (and site-init (not (and process-command-line (find-switch "nositeinit")))) - (or (load site-init :if-does-not-exist nil :verbose t) - (load "library:default-site-init" :if-does-not-exist nil :verbose t))) + (or (load site-init :if-does-not-exist nil :verbose nil) + (load "library:default-site-init" :if-does-not-exist nil :verbose nil))) (when (and process-command-line (find-switch "edit")) (setf *editor-lisp-p* t)) (when (and load-init-file @@ -444,13 +444,7 @@ (setf (getf *herald-items* :bugs) `(,#'(lambda (stream) - (write-string (intl:gettext "Please report issues to ") - stream) - (write-string (intl:gettext "https://gitlab.common-lisp.net/cmucl/cmucl/-/issues") - stream)) - terpri - ,#'(lambda (stream) - (write-string (intl:gettext "See <http://www.cmucl.org/> for support information.") stream)) + (write-string (intl:gettext "See <http://www.cmucl.org/> for support information.") stream)) terpri ,#'(lambda (stream) (write-string (intl:gettext "Loaded subsystems:") stream)))) View it on GitLab: https://gitlab.common-lisp.net/cmucl/cmucl/-/compare/6120d2c9e0e57b768a631bf... -- View it on GitLab: https://gitlab.common-lisp.net/cmucl/cmucl/-/compare/6120d2c9e0e57b768a631bf... You're receiving this email because of your account on gitlab.common-lisp.net.