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