GitLab

at 2023-03-23T13:45:44+00:00

Fix #176: short-site-name and long-site-name return NIL

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
Address #120: Move misc doc stuff to misc-doc.lisp

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
Merge branch 'master' into issue-120-software-type-in-c

Update cmucl.pot

 		     (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 ()

     * ~~#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:

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

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

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

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

Raymond Toy pushed to branch issue-120-software-type-in-c at cmucl / cmucl

Commits:

3 changed files:

Changes: