Raymond Toy pushed to branch master at cmucl / cmucl

Commits: 5958fd8d by Raymond Toy at 2023-03-23T13:45:44+00:00 Fix #176: short-site-name and long-site-name return NIL

- - - - - b758b5aa by Raymond Toy at 2023-03-23T13:45:46+00:00 Merge branch 'issue-176-site-name-is-nil' into 'master'

Fix #176: short-site-name and long-site-name return NIL

Closes #176

See merge request cmucl/cmucl!130 - - - - -

2 changed files:

- src/code/misc.lisp - src/general-info/release-21e.md

Changes:

===================================== src/code/misc.lisp ===================================== @@ -190,14 +190,14 @@ "Returns a string describing the supporting software." *software-type*)

-(defvar *short-site-name* (intl:gettext "Unknown") +(defvar *short-site-name* nil "The value of SHORT-SITE-NAME. Set in library:site-init.lisp.")

(defun short-site-name () "Returns a string with the abbreviated site name." *short-site-name*)

-(defvar *long-site-name* (intl:gettext "Site name not initialized") +(defvar *long-site-name* nil "The value of LONG-SITE-NAME. Set in library:site-init.lisp.")

(defun long-site-name ()

===================================== src/general-info/release-21e.md ===================================== @@ -77,6 +77,7 @@ public domain. * ~~#169~~ Add pprinter for `define-vop` and `sc-case` * ~~#172~~ Declare `pathname-match-p` as returning `nil` or `pathname`. * ~~#173~~ Add pprinter for `define-assembly-routine` + * ~~#176~~ `SHORT-SITE-NAME` and `LONG-SITE-NAME` return `NIL`. * Other changes: * Improvements to the PCL implementation of CLOS: * Changes to building procedure:

View it on GitLab: https://gitlab.common-lisp.net/cmucl/cmucl/-/compare/b329b3853e0686f175dfb0f...