[Git][cmucl/cmucl][issue-120-software-type-in-c] 6 commits: Fix #176: short-site-name and long-site-name return NIL

[Raymond Toy (@rtoy)]

Raymond Toy pushed to branch issue-120-software-type-in-c 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
- - - - -
927c2ae9 by Raymond Toy at 2023-03-23T13:46:03+00:00
Address #120: Move misc doc stuff to misc-doc.lisp

- - - - -
c26f8ede by Raymond Toy at 2023-03-23T13:46:05+00:00
Merge branch 'issue-120-move-misc-first' into 'master'

Address #120: Move misc doc stuff to misc-doc.lisp

Closes #120

See merge request cmucl/cmucl!133
- - - - -
128b152e by Raymond Toy at 2023-03-23T07:02:30-07:00
Merge branch 'master' into issue-120-software-type-in-c

- - - - -
d0623e5c by Raymond Toy at 2023-03-23T07:11:54-07:00
Update cmucl.pot

- - - - -


3 changed files:

- src/code/misc.lisp
- src/general-info/release-21e.md
- src/i18n/locale/cmucl.pot


Changes:

=====================================
src/code/misc.lisp
=====================================
@@ -117,14 +117,14 @@
 		     (alien:cast version c-call:c-string))))))
     *software-version*))
 
-(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
=====================================
@@ -78,6 +78,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:


=====================================
src/i18n/locale/cmucl.pot
=====================================
@@ -5605,17 +5605,6 @@ msgid ""
 "  NIL if no such character exists."
 msgstr ""
 
-#: src/code/misc-doc.lisp src/code/misc.lisp
-msgid ""
-"Returns the documentation string of Doc-Type for X, or NIL if\n"
-"  none exists.  System doc-types are VARIABLE, FUNCTION, STRUCTURE, TYPE,\n"
-"  SETF, and T."
-msgstr ""
-
-#: src/code/misc-doc.lisp src/code/misc.lisp
-msgid "~S is not the name of a structure type."
-msgstr ""
-
 #: src/code/misc.lisp
 msgid ""
 "If X is an atom, see if it is present in *FEATURES*.  Also\n"
@@ -5662,10 +5651,6 @@ msgstr ""
 msgid "The value of SHORT-SITE-NAME.  Set in library:site-init.lisp."
 msgstr ""
 
-#: src/code/misc.lisp
-msgid "Unknown"
-msgstr ""
-
 #: src/code/misc.lisp
 msgid "Returns a string with the abbreviated site name."
 msgstr ""
@@ -5674,10 +5659,6 @@ msgstr ""
 msgid "The value of LONG-SITE-NAME.  Set in library:site-init.lisp."
 msgstr ""
 
-#: src/code/misc.lisp
-msgid "Site name not initialized"
-msgstr ""
-
 #: src/code/misc.lisp
 msgid "Returns a string with the long form of the site name."
 msgstr ""
@@ -5709,6 +5690,17 @@ msgid ""
 "  disassemble."
 msgstr ""
 
+#: src/code/misc-doc.lisp
+msgid ""
+"Returns the documentation string of Doc-Type for X, or NIL if\n"
+"  none exists.  System doc-types are VARIABLE, FUNCTION, STRUCTURE, TYPE,\n"
+"  SETF, and T."
+msgstr ""
+
+#: src/code/misc-doc.lisp
+msgid "~S is not the name of a structure type."
+msgstr ""
+
 #: src/code/extensions.lisp
 msgid ""
 "This function can be used as the default value for keyword arguments that\n"



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

-- 
View it on GitLab: https://gitlab.common-lisp.net/cmucl/cmucl/-/compare/e7fc70da2269c8fcbf960d3410fe5e99e0b92df7...d0623e5ccb0cfd2ead0d18316eb481753a209467
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/9235d33b/attachment-0001.html>