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:

 	       (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

 (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))))