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...