Raymond Toy pushed to branch master at cmucl / cmucl
Commits:
-
5958fd8d
by Raymond Toy at 2023-03-23T13:45:44+00:00
-
b758b5aa
by Raymond Toy at 2023-03-23T13:45:46+00:00
2 changed files:
Changes:
... | ... | @@ -190,14 +190,14 @@ |
190 | 190 | "Returns a string describing the supporting software."
|
191 | 191 | *software-type*)
|
192 | 192 | |
193 | -(defvar *short-site-name* (intl:gettext "Unknown")
|
|
193 | +(defvar *short-site-name* nil
|
|
194 | 194 | "The value of SHORT-SITE-NAME. Set in library:site-init.lisp.")
|
195 | 195 | |
196 | 196 | (defun short-site-name ()
|
197 | 197 | "Returns a string with the abbreviated site name."
|
198 | 198 | *short-site-name*)
|
199 | 199 | |
200 | -(defvar *long-site-name* (intl:gettext "Site name not initialized")
|
|
200 | +(defvar *long-site-name* nil
|
|
201 | 201 | "The value of LONG-SITE-NAME. Set in library:site-init.lisp.")
|
202 | 202 | |
203 | 203 | (defun long-site-name ()
|
... | ... | @@ -77,6 +77,7 @@ public domain. |
77 | 77 | * ~~#169~~ Add pprinter for `define-vop` and `sc-case`
|
78 | 78 | * ~~#172~~ Declare `pathname-match-p` as returning `nil` or `pathname`.
|
79 | 79 | * ~~#173~~ Add pprinter for `define-assembly-routine`
|
80 | + * ~~#176~~ `SHORT-SITE-NAME` and `LONG-SITE-NAME` return `NIL`.
|
|
80 | 81 | * Other changes:
|
81 | 82 | * Improvements to the PCL implementation of CLOS:
|
82 | 83 | * Changes to building procedure:
|