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/e7fc70da2269c8fcbf960d3... -- View it on GitLab: https://gitlab.common-lisp.net/cmucl/cmucl/-/compare/e7fc70da2269c8fcbf960d3... You're receiving this email because of your account on gitlab.common-lisp.net.