[Git][cmucl/cmucl][master] 2 commits: Fix #176: short-site-name and long-site-name return NIL

[Raymond Toy (@rtoy)]

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/b329b3853e0686f175dfb0fb2f483e09b0b7c9df...b758b5aaed45e7e38853782d9101229a3280abe4

-- 
View it on GitLab: https://gitlab.common-lisp.net/cmucl/cmucl/-/compare/b329b3853e0686f175dfb0fb2f483e09b0b7c9df...b758b5aaed45e7e38853782d9101229a3280abe4
You're receiving this email because of your account on gitlab.common-lisp.net.


-------------- next part --------------
An HTML attachment was scrubbed...
URL: <https://mailman.common-lisp.net/pipermail/cmucl-cvs/attachments/20230323/ee5a872e/attachment-0001.html>