Raymond Toy pushed to branch master at cmucl / cmucl

Commits:

2 changed files:

Changes:

  • src/code/misc.lisp
    ... ... @@ -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 ()
    

  • src/general-info/release-21e.md
    ... ... @@ -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: