[Git][cmucl/cmucl][master] 3 commits: Update file version to 21e

Raymond Toy (@rtoy) gitlab at common-lisp.net
Sun May 14 02:37:51 UTC 2023



Raymond Toy pushed to branch master at cmucl / cmucl


Commits:
d533ca2c by Raymond Toy at 2023-05-13T07:02:39-07:00
Update file version to 21e

Add the required bootstrap file and update CI to use it.

- - - - -
28167cf6 by Raymond Toy at 2023-05-13T07:05:04-07:00
Update all translations

- - - - -
e82bebb7 by Raymond Toy at 2023-05-13T17:29:42-07:00
Update release notes for 21e.

Basically just remove the WIP section title.

- - - - -


14 changed files:

- .gitlab-ci.yml
- + src/bootfiles/21d/boot-21e.lisp
- src/compiler/byte-comp.lisp
- src/general-info/release-21e.md
- src/i18n/locale/en at piglatin/LC_MESSAGES/cmucl-bsd-os.po
- src/i18n/locale/en at piglatin/LC_MESSAGES/cmucl-linux-os.po
- src/i18n/locale/en at piglatin/LC_MESSAGES/cmucl-unix.po
- src/i18n/locale/en at piglatin/LC_MESSAGES/cmucl-x86-vm.po
- src/i18n/locale/en at piglatin/LC_MESSAGES/cmucl.po
- src/i18n/locale/ko/LC_MESSAGES/cmucl-bsd-os.po
- src/i18n/locale/ko/LC_MESSAGES/cmucl-linux-os.po
- src/i18n/locale/ko/LC_MESSAGES/cmucl-unix.po
- src/i18n/locale/ko/LC_MESSAGES/cmucl-x86-vm.po
- src/i18n/locale/ko/LC_MESSAGES/cmucl.po


Changes:

=====================================
.gitlab-ci.yml
=====================================
@@ -1,7 +1,7 @@
 variables:
   download_url: "https://common-lisp.net/project/cmucl/downloads/snapshots/2023/04"
   version: "2023-04-x86"
-  bootstrap: ""
+  bootstrap: "-B boot-21e"
 
 stages:
   - install


=====================================
src/bootfiles/21d/boot-21e.lisp
=====================================
@@ -0,0 +1,68 @@
+;;;;
+;;;; Boot file for changing the fasl file version numbers to 21e.
+;;;;
+
+(in-package :c)
+
+(setf lisp::*enable-package-locked-errors* nil)
+
+;;;
+;;; Note that BYTE-FASL-FILE-VERSION is a constant.
+;;;
+;;; (Be sure to change BYTE-FASL-FILE-VERSION in
+;;; compiler/byte-comp.lisp to the correct value too!)
+;;;
+#-cmu21e
+(setf (symbol-value 'byte-fasl-file-version)       #x21e)
+#-cmu21e
+(setf (backend-fasl-file-version *target-backend*) #x21e)
+
+;;;
+;;; Don't check fasl versions in the compiling Lisp because we'll
+;;; load files compiled with the new version numbers.
+;;;
+#-cmu21e
+(setq lisp::*skip-fasl-file-version-check* t)
+
+;;;
+;;; This is here because BYTE-FASL-FILE-VERSION is constant-folded in
+;;; OPEN-FASL-FILE.  To make the new version number take effect, we
+;;; have to redefine the function.
+;;;
+#-cmu21e
+(defun open-fasl-file (name where &optional byte-p)
+  (declare (type pathname name))
+  (let* ((stream (open name :direction :output
+			    :if-exists :new-version
+			    :element-type '(unsigned-byte 8)
+			    :class 'binary-text-stream))
+	 (res (make-fasl-file :stream stream)))
+    (multiple-value-bind
+	(version f-vers f-imp)
+	(if byte-p
+	    (values "Byte code"
+		    byte-fasl-file-version
+		    (backend-byte-fasl-file-implementation *backend*))
+	    (values (backend-version *backend*)
+		    (backend-fasl-file-version *backend*)
+		    (backend-fasl-file-implementation *backend*)))
+      (format stream
+	      "FASL FILE output from ~A.~@
+	       Compiled ~A on ~A~@
+	       Compiler ~A, Lisp ~A~@
+	       Targeted for ~A, FASL version ~X~%"
+	      where
+	      (ext:format-universal-time nil (get-universal-time))
+	      (machine-instance) compiler-version
+	      (lisp-implementation-version)
+	      version f-vers)
+      ;;
+      ;; Terminate header.
+      (dump-byte 255 res)
+      ;;
+      ;; Specify code format.
+      (dump-fop 'lisp::fop-long-code-format res)
+      (dump-byte f-imp res)
+      (dump-unsigned-32 f-vers res))
+    res))
+


=====================================
src/compiler/byte-comp.lisp
=====================================
@@ -38,7 +38,7 @@
 ;; 0-9 followed by a single hex digit in the range a-f.  Then the
 ;; version looks like a decimal number followed by a minor release
 ;; letter of a to f.
-(defconstant byte-fasl-file-version #x21d)
+(defconstant byte-fasl-file-version #x21e)
 
 (let* ((version-string (format nil "~X" byte-fasl-file-version)))
   ;; Add :cmu<n> to *features*


=====================================
src/general-info/release-21e.md
=====================================
@@ -1,7 +1,5 @@
 # CMUCL 21e
 
-## Work in progress
-
 The CMUCL project is pleased to announce the release of CMUCL 21e.
 This is a major release which contains numerous enhancements and bug
 fixes from the 21d release.


=====================================
src/i18n/locale/en at piglatin/LC_MESSAGES/cmucl-bsd-os.po
=====================================
@@ -16,24 +16,10 @@ msgstr ""
 "Content-Transfer-Encoding: 8bit\n"
 "Plural-Forms: nplurals=2; plural=(n != 1);\n"
 
-#: src/code/bsd-os.lisp
-msgid "Version string for supporting software"
-msgstr "Ersionvay ingstray orfay upportingsay oftwaresay"
-
-#: src/code/bsd-os.lisp
-msgid "Returns a string describing version of the supporting software."
-msgstr ""
-"Eturnsray away ingstray escribingday ersionvay ofway ethay upportingsay "
-"oftwaresay."
-
 #: src/code/bsd-os.lisp
 msgid "Unix system call getrusage failed: ~A."
 msgstr "Unixway ystemsay allcay etrusagegay ailedfay: ~Away."
 
-#: src/code/bsd-os.lisp
-msgid "Getpagesize failed: ~A"
-msgstr "Etpagesizegay ailedfay: ~Away"
-
 #: src/code/signal.lisp
 msgid "Emt instruction"
 msgstr "Emtway instructionway"
@@ -41,3 +27,14 @@ msgstr "Emtway instructionway"
 #: src/code/signal.lisp
 msgid "Bad argument to system call"
 msgstr "Adbay argumentway otay ystemsay allcay"
+
+#~ msgid "Version string for supporting software"
+#~ msgstr "Ersionvay ingstray orfay upportingsay oftwaresay"
+
+#~ msgid "Returns a string describing version of the supporting software."
+#~ msgstr ""
+#~ "Eturnsray away ingstray escribingday ersionvay ofway ethay upportingsay "
+#~ "oftwaresay."
+
+#~ msgid "Getpagesize failed: ~A"
+#~ msgstr "Etpagesizegay ailedfay: ~Away"


=====================================
src/i18n/locale/en at piglatin/LC_MESSAGES/cmucl-linux-os.po
=====================================
@@ -16,16 +16,6 @@ msgstr ""
 "Content-Transfer-Encoding: 8bit\n"
 "Plural-Forms: nplurals=2; plural=(n != 1);\n"
 
-#: src/code/linux-os.lisp
-msgid "Returns a string describing version of the supporting software."
-msgstr ""
-"Eturnsray away ingstray escribingday ersionvay ofway ethay upportingsay "
-"oftwaresay."
-
-#: src/code/linux-os.lisp
-msgid "Unix system call getrusage failed: ~A."
-msgstr "Unixway ystemsay allcay etrusagegay ailedfay: ~Away."
-
 #: src/code/linux-os.lisp
 msgid "Getpagesize failed: ~A"
 msgstr "Etpagesizegay ailedfay: ~Away"
@@ -33,3 +23,11 @@ msgstr "Etpagesizegay ailedfay: ~Away"
 #: src/code/signal.lisp
 msgid "Stack fault on coprocessor"
 msgstr "Tacksay aultfay onway oprocessorcay"
+
+#~ msgid "Returns a string describing version of the supporting software."
+#~ msgstr ""
+#~ "Eturnsray away ingstray escribingday ersionvay ofway ethay upportingsay "
+#~ "oftwaresay."
+
+#~ msgid "Unix system call getrusage failed: ~A."
+#~ msgstr "Unixway ystemsay allcay etrusagegay ailedfay: ~Away."


=====================================
src/i18n/locale/en at piglatin/LC_MESSAGES/cmucl-unix.po
=====================================
@@ -16,6 +16,15 @@ msgstr ""
 "Content-Transfer-Encoding: 8bit\n"
 "Plural-Forms: nplurals=2; plural=(n != 1);\n"
 
+#: src/code/unix.lisp
+msgid ""
+"The encoding to use for converting a namestring to a string that can\n"
+"  be used by the operations system.  It must be a valid\n"
+"  external-format name or :NULL.  :NULL means the string\n"
+"  is passed as is to the operating system.  The operating system will\n"
+"  get the low 8 bits of each UTF-16 code unit of the string."
+msgstr ""
+
 #: src/code/unix.lisp
 msgid "Syscall ~A failed: ~A"
 msgstr "Yscallsay ~Away ailedfay: ~Away"
@@ -659,12 +668,6 @@ msgstr ""
 "ethay\n"
 "   urrentcay ocesspray."
 
-#: src/code/unix.lisp
-msgid "Unix-getpagesize returns the number of bytes in a system page."
-msgstr ""
-"Unixway-etpagesizegay eturnsray ethay umbernay ofway ytesbay inway away "
-"ystemsay agepay."
-
 #: src/code/unix.lisp
 msgid "Unix-gethostname returns the name of the host machine as a string."
 msgstr ""
@@ -700,34 +703,69 @@ msgstr "Izesay ofway ontrolcay aracterchay ectorvay."
 #: src/code/unix.lisp
 msgid ""
 "Unix-stat retrieves information about the specified\n"
-"   file returning them in the form of multiple values.\n"
-"   See the UNIX Programmer's Manual for a description\n"
-"   of the values returned.  If the call fails, then NIL\n"
-"   and an error number is returned instead."
+"   file returning them in the form of multiple values.  If the call\n"
+"   fails, then NIL and an error number is returned.  If the call\n"
+"   succeeds, then T is returned in addition to the following values\n"
+"   from the stat struct st:\n"
+"\n"
+"     st_dev        Device ID\n"
+"     st_ino        File serial number\n"
+"     st_mode       Mode of file\n"
+"     st_nlink      Number of hard links to the file\n"
+"     st_uid        User ID\n"
+"     st_gid        Group ID\n"
+"     st_rdev       Device ID (if file is character or block special)\n"
+"     st_atime      Last data access time, in sec\n"
+"     st_mtime      Last data modification time, in sec\n"
+"     st_ctime      Last file status change time, in sec\n"
+"     st_blksize    Preferred I/O block size\n"
+"     st_blocks     Number of blocks allocated. (Block size is implementation "
+"dependent.)\n"
 msgstr ""
-"Unixway-tatsay etrievesray informationway aboutway ethay ecifiedspay\n"
-"   ilefay eturningray emthay inway ethay ormfay ofway ultiplemay aluesvay.\n"
-"   Eesay ethay UNIX Ogrammerpray's Anualmay orfay away escriptionday\n"
-"   ofway ethay aluesvay eturnedray.  Ifway ethay allcay ailsfay, enthay NIL\n"
-"   andway anway errorway umbernay isway eturnedray insteadway."
 
 #: src/code/unix.lisp
 msgid ""
-"Unix-lstat is similar to unix-stat except the specified\n"
-"   file must be a symbolic link."
+"Unix-fstat is similar to unix-stat except the file is specified\n"
+"   by the file descriptor fd.  If the call fails, then NIL and an\n"
+"   error number is returned.  If the call succeeds, then T is returned\n"
+"   in addition to the following values from the stat struct st:\n"
+"\n"
+"     st_dev        Device ID\n"
+"     st_ino        File serial number\n"
+"     st_mode       Mode of file\n"
+"     st_nlink      Number of hard links to the file\n"
+"     st_uid        User ID\n"
+"     st_gid        Group ID\n"
+"     st_rdev       Device ID (if file is character or block special)\n"
+"     st_atime      Last data access time, in sec\n"
+"     st_mtime      Last data modification time, in sec\n"
+"     st_ctime      Last file status change time, in sec\n"
+"     st_blksize    Preferred I/O block size\n"
+"     st_blocks     Number of blocks allocated. (Block size is implementation "
+"dependent.)\n"
 msgstr ""
-"Unixway-statlay isway imilarsay otay unixway-tatsay exceptway ethay "
-"ecifiedspay\n"
-"   ilefay ustmay ebay away ymbolicsay inklay."
 
 #: src/code/unix.lisp
 msgid ""
-"Unix-fstat is similar to unix-stat except the file is specified\n"
-"   by the file descriptor fd."
+"Unix-lstat is similar to unix-stat except the specified\n"
+"   file must be a symbolic link.  If the call fails, then NIL and an\n"
+"   error number is returned.  If the call succeeds, then T is returned\n"
+"   in addition to the following values from the stat struct st:\n"
+"\n"
+"     st_dev        Device ID\n"
+"     st_ino        File serial number\n"
+"     st_mode       Mode of file\n"
+"     st_nlink      Number of hard links to the file\n"
+"     st_uid        User ID\n"
+"     st_gid        Group ID\n"
+"     st_rdev       Device ID (if file is character or block special)\n"
+"     st_atime      Last data access time, in sec\n"
+"     st_mtime      Last data modification time, in sec\n"
+"     st_ctime      Last file status change time, in sec\n"
+"     st_blksize    Preferred I/O block size\n"
+"     st_blocks     Number of blocks allocated. (Block size is implementation "
+"dependent.)\n"
 msgstr ""
-"Unixway-statfay isway imilarsay otay unixway-tatsay exceptway ethay ilefay "
-"isway ecifiedspay\n"
-"   ybay ethay ilefay escriptorday dfay."
 
 #: src/code/unix.lisp
 msgid "The calling process."
@@ -1598,6 +1636,14 @@ msgstr ""
 "Eturnray away USER-INFO ucturestray orfay ethay userway identifiedway ybay "
 "UID, orway NIL ifway otnay oundfay."
 
+#: src/code/unix.lisp
+msgid ""
+"Return a USER-INFO structure for the user identified by UID.  If\n"
+"  not found, NIL is returned with a second value indicating the cause\n"
+"  of the failure.  In particular, if the second value is 0 (or\n"
+"  ENONENT, ESRCH, EBADF, etc.), then the uid was not found."
+msgstr ""
+
 #: src/code/unix.lisp
 msgid ""
 "Unix-times returns information about the cpu time usage of the process\n"
@@ -1686,6 +1732,57 @@ msgstr ""
 "andway anway errorway umbernay ifway itway\n"
 "   oesnday't orkway."
 
+#: src/code/unix.lisp
+msgid "Call setlocale(3c) with fixed args.  Returns 0 on success."
+msgstr ""
+
+#: src/code/unix.lisp
+msgid ""
+"Get LC_MESSAGES from the current locale.  If we can't, return\n"
+"  NIL.  A call to UNIX-SETLOCALE must have been done previously before\n"
+"  calling this so that the correct locale is returned."
+msgstr ""
+
+#: src/code/unix.lisp
+msgid "Get the codeset from the locale"
+msgstr ""
+
+#~ msgid "Unix-getpagesize returns the number of bytes in a system page."
+#~ msgstr ""
+#~ "Unixway-etpagesizegay eturnsray ethay umbernay ofway ytesbay inway away "
+#~ "ystemsay agepay."
+
+#~ msgid ""
+#~ "Unix-stat retrieves information about the specified\n"
+#~ "   file returning them in the form of multiple values.\n"
+#~ "   See the UNIX Programmer's Manual for a description\n"
+#~ "   of the values returned.  If the call fails, then NIL\n"
+#~ "   and an error number is returned instead."
+#~ msgstr ""
+#~ "Unixway-tatsay etrievesray informationway aboutway ethay ecifiedspay\n"
+#~ "   ilefay eturningray emthay inway ethay ormfay ofway ultiplemay "
+#~ "aluesvay.\n"
+#~ "   Eesay ethay UNIX Ogrammerpray's Anualmay orfay away escriptionday\n"
+#~ "   ofway ethay aluesvay eturnedray.  Ifway ethay allcay ailsfay, enthay "
+#~ "NIL\n"
+#~ "   andway anway errorway umbernay isway eturnedray insteadway."
+
+#~ msgid ""
+#~ "Unix-lstat is similar to unix-stat except the specified\n"
+#~ "   file must be a symbolic link."
+#~ msgstr ""
+#~ "Unixway-statlay isway imilarsay otay unixway-tatsay exceptway ethay "
+#~ "ecifiedspay\n"
+#~ "   ilefay ustmay ebay away ymbolicsay inklay."
+
+#~ msgid ""
+#~ "Unix-fstat is similar to unix-stat except the file is specified\n"
+#~ "   by the file descriptor fd."
+#~ msgstr ""
+#~ "Unixway-statfay isway imilarsay otay unixway-tatsay exceptway ethay "
+#~ "ilefay isway ecifiedspay\n"
+#~ "   ybay ethay ilefay escriptorday dfay."
+
 #~ msgid ""
 #~ "Set the user ID of the calling process to UID.\n"
 #~ "   If the calling process is the super-user, set the real\n"


=====================================
src/i18n/locale/en at piglatin/LC_MESSAGES/cmucl-x86-vm.po
=====================================
@@ -187,6 +187,10 @@ msgstr "Edefiningray SC umbernay ~D omfray ~S otay ~S."
 msgid "Class not yet defined: ~S"
 msgstr "Assclay otnay etyay efinedday: ~S"
 
+#: src/compiler/x86/insts.lisp
+msgid "Sign extend the N-bit number X"
+msgstr ""
+
 #: src/compiler/x86/macros.lisp
 msgid "Move SRC into DST unless they are location=."
 msgstr "Ovemay SRC intoway DST unlessway eythay areway ocationlay=."


=====================================
src/i18n/locale/en at piglatin/LC_MESSAGES/cmucl.po
=====================================
@@ -405,9 +405,11 @@ msgstr ""
 "Unctionsfay otay ebay invokedway uringday eanupclay atway Isplay exitway."
 
 #: src/code/lispinit.lisp
+#, fuzzy
 msgid ""
-"Terminates the current Lisp.  Things are cleaned up unless Recklessly-P is\n"
-"  non-Nil."
+"Terminates the current Lisp.  Things are cleaned up unless\n"
+"  Recklessly-P is non-Nil.  On quitting, Lisp sets the return code to\n"
+"  Code, defaulting to 0."
 msgstr ""
 "Erminatestay ethay urrentcay Isplay.  Ingsthay areway eanedclay upway "
 "unlessway Ecklesslyray-P isway\n"
@@ -1530,8 +1532,8 @@ msgid ""
 "\t\t    ~A definition."
 msgstr ""
 "Inway assclay ~S:~%  ~\n"
-"\t\t    ~:(~Away~) efinitionday ofway uperclasssay ~S incompatibleway ithway~"
-"%  ~\n"
+"\t\t    ~:(~Away~) efinitionday ofway uperclasssay ~S incompatibleway "
+"ithway~%  ~\n"
 "\t\t    ~Away efinitionday."
 
 #: src/code/class.lisp
@@ -5713,6 +5715,13 @@ msgstr ""
 "ormalizednay, ethay originalway\n"
 "  ingstray isway eturnedray."
 
+#: src/code/string.lisp
+msgid ""
+"Convert STRING to NFD (or NFKD).  If :darwinp is non-NIL, then\n"
+"  characters in the ranges U2000-U2FFF, UF900-UFA6A, and U2F800-U2FA1D\n"
+"  are not decomposed, as specified for Darwin pathnames."
+msgstr ""
+
 #: src/code/string.lisp
 msgid ""
 "Convert a sequence of codepoints to a string.  Codepoints outside\n"
@@ -8002,22 +8011,6 @@ msgstr ""
 "ecifiedspay adixray.  Eturnsray\n"
 "  NIL ifway onay uchsay aracterchay existsway."
 
-#: 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 ""
-"Eturnsray ethay ocumentationday ingstray ofway Ocday-Ypetay orfay X, orway "
-"NIL ifway\n"
-"  onenay existsway.  Ystemsay ocday-ypestay areway VARIABLE, FUNCTION, "
-"STRUCTURE, TYPE,\n"
-"  SETF, andway T."
-
-#: src/code/misc.lisp
-msgid "~S is not the name of a structure type."
-msgstr "~S isway otnay ethay amenay ofway away ucturestray ypetay."
-
 #: src/code/misc.lisp
 msgid ""
 "If X is an atom, see if it is present in *FEATURES*.  Also\n"
@@ -8057,16 +8050,22 @@ msgstr "Ethay aluevay ofway SOFTWARE-TYPE.  Etsay inway FOO-osway.isplay."
 msgid "Returns a string describing the supporting software."
 msgstr "Eturnsray away ingstray escribingday ethay upportingsay oftwaresay."
 
+#: src/code/misc.lisp
+#, fuzzy
+msgid "Version string for supporting software"
+msgstr "Eturnsray away ingstray escribingday ethay upportingsay oftwaresay."
+
+#: src/code/misc.lisp
+#, fuzzy
+msgid "Returns a string describing version of the supporting software."
+msgstr "Eturnsray away ingstray escribingday ethay upportingsay oftwaresay."
+
 #: src/code/misc.lisp
 msgid "The value of SHORT-SITE-NAME.  Set in library:site-init.lisp."
 msgstr ""
 "Ethay aluevay ofway SHORT-SITE-NAME.  Etsay inway ibrarylay:itesay-initway."
 "isplay."
 
-#: src/code/misc.lisp
-msgid "Unknown"
-msgstr "Unknownway"
-
 #: src/code/misc.lisp
 msgid "Returns a string with the abbreviated site name."
 msgstr "Eturnsray away ingstray ithway ethay abbreviatedway itesay amenay."
@@ -8077,10 +8076,6 @@ msgstr ""
 "Ethay aluevay ofway LONG-SITE-NAME.  Etsay inway ibrarylay:itesay-initway."
 "isplay."
 
-#: src/code/misc.lisp
-msgid "Site name not initialized"
-msgstr "Itesay amenay otnay initializedway"
-
 #: src/code/misc.lisp
 msgid "Returns a string with the long form of the site name."
 msgstr ""
@@ -8113,13 +8108,16 @@ msgstr ""
 "  oadedlay, edway ancay ebay usedway otay editway away ilefay"
 
 #: src/code/misc.lisp
+#, fuzzy
 msgid ""
 "Disassemble the machine code associated with OBJECT, which can be a\n"
 "  function, a lambda expression, or a symbol with a function definition.  "
 "If\n"
 "  it is not already compiled, the compiler is called to produce something "
 "to\n"
-"  disassemble."
+"  disassemble.\n"
+"\n"
+"  Also see disassem:disassemble for finer control of disassembly."
 msgstr ""
 "Isassembleday ethay achinemay odecay associatedway ithway OBJECT, ichwhay "
 "ancay ebay away\n"
@@ -8129,6 +8127,22 @@ msgstr ""
 "otay oducepray omethingsay otay\n"
 "  isassembleday."
 
+#: 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 ""
+"Eturnsray ethay ocumentationday ingstray ofway Ocday-Ypetay orfay X, orway "
+"NIL ifway\n"
+"  onenay existsway.  Ystemsay ocday-ypestay areway VARIABLE, FUNCTION, "
+"STRUCTURE, TYPE,\n"
+"  SETF, andway T."
+
+#: src/code/misc-doc.lisp
+msgid "~S is not the name of a structure type."
+msgstr "~S isway otnay ethay amenay ofway away ucturestray ypetay."
+
 #: src/code/extensions.lisp
 msgid ""
 "This function can be used as the default value for keyword arguments that\n"
@@ -8864,6 +8878,15 @@ msgstr "Intpray outway ethay ommandcay inelay optionsway andway exitway"
 msgid "Same as -help."
 msgstr "Amesay asway -elphay."
 
+#: src/code/commandline.lisp
+#, fuzzy
+msgid "Prints the cmucl version and exits"
+msgstr "Intpray outway ethay ommandcay inelay optionsway andway exitway"
+
+#: src/code/commandline.lisp
+msgid "Prints the cmucl version and exits; same as -version"
+msgstr ""
+
 #: src/code/env-access.lisp
 msgid ""
 "Returns information about the symbol VAR in the lexical environment ENV.\n"
@@ -9114,8 +9137,8 @@ msgstr ""
 #: src/code/room.lisp
 msgid "~:D code-object bytes, ~:D code words, with ~:D no-ops (~D%).~%"
 msgstr ""
-"~:D odecay-objectway ytesbay, ~:D odecay ordsway, ithway ~:D onay-opsway (~D"
-"%).~%"
+"~:D odecay-objectway ytesbay, ~:D odecay ordsway, ithway ~:D onay-opsway "
+"(~D%).~%"
 
 #: src/code/room.lisp
 msgid "Bogus type: ~D"
@@ -9128,21 +9151,24 @@ msgstr "~:D ordsway allocatedway orfay escriptorday objectsway.~%"
 #: src/code/room.lisp
 msgid "~:D bytes data/~:D words header for non-descriptor objects.~%"
 msgstr ""
-"~:D ytesbay ataday/~:D ordsway eaderhay orfay onnay-escriptorday objectsway.~"
-"%"
+"~:D ytesbay ataday/~:D ordsway eaderhay orfay onnay-escriptorday objectsway."
+"~%"
 
 #: src/code/room.lisp
 msgid ""
-"Print a breakdown by instance type of all the instances allocated in\n"
-"  Space.  If TOP-N is true, print only information for the the TOP-N types "
-"with\n"
-"  largest usage."
+"Print a breakdown by instance type of all the allocation in Space.  \n"
+"\n"
+"  :TOP-N \n"
+"      If true, print only the TOP-N types by largest usage.\n"
+"\n"
+"  :ENTRIES-VAR\n"
+"      If bound, contains the name of the symbol used to store the hash-"
+"table\n"
+"      of allocated entries for later processing.\n"
+"\n"
+"  :CALL-SOURCE\n"
+"      A string identifying the location from which instance-usage was called."
 msgstr ""
-"Intpray away eakdownbray ybay instanceway ypetay ofway allway ethay "
-"instancesway allocatedway inway\n"
-"  Acespay.  Ifway TOP-N isway uetray, intpray onlyway informationway orfay "
-"ethay ethay TOP-N ypestay ithway\n"
-"  argestlay usageway."
 
 #: src/code/room.lisp
 msgid "~2&~@[Top ~D ~]~(~A~) instance types:~%"
@@ -9670,6 +9696,12 @@ msgstr ""
 "Isthay isway uetray ifway andway onlyway ifway ethay isplay asway tartedsay "
 "ithway ethay -editway witchsay."
 
+#: src/code/save.lisp
+msgid ""
+"Add external format alias for :locale to the format specified by\n"
+"  the locale as set by setlocale(3C)."
+msgstr ""
+
 #: src/code/save.lisp
 #, fuzzy
 msgid ""
@@ -10083,10 +10115,16 @@ msgid "Impossible case reached in PEEK-CHAR"
 msgstr "Impossibleway asecay eachedray inway PEEK-CHAR"
 
 #: src/code/stream.lisp
-msgid "Returns T if a character is available on the given Stream."
+msgid ""
+"Returns T if a character is available on the given Stream.\n"
+"  Argument Width is only used by instances of SIMPLE-STREAM. If\n"
+"  Stream is a LISP-STREAM or FUNDAMENTAL-STREAM, passing more\n"
+"  than one argument is invalid."
 msgstr ""
-"Eturnsray T ifway away aracterchay isway availableway onway ethay ivengay "
-"Eamstray."
+
+#: src/code/interr.lisp src/code/stream.lisp
+msgid "Invalid number of arguments: ~S"
+msgstr "Invalidway umbernay ofway argumentsway: ~S"
 
 #: src/code/stream.lisp
 msgid "Returns the next character from the Stream if one is available, or nil."
@@ -11997,8 +12035,8 @@ msgid ""
 "\t      results in name conflicts with these packages:~%~{~A ~}"
 msgstr ""
 "Exportingway esethay ymbolssay omfray ethay ~Away ackagepay:~%~S~%~\n"
-"\t      esultsray inway amenay onflictscay ithway esethay ackagespay:~"
-"%~{~Away ~}"
+"\t      esultsray inway amenay onflictscay ithway esethay ackagespay:"
+"~%~{~Away ~}"
 
 #: src/code/package.lisp
 msgid "Unintern conflicting symbols."
@@ -14749,8 +14787,8 @@ msgstr "Oadlay itway asway away ourcesay ilefay."
 #: src/code/load.lisp
 msgid "File has a fasl file type, but no fasl file header:~%  ~S"
 msgstr ""
-"Ilefay ashay away aslfay ilefay ypetay, utbay onay aslfay ilefay eaderhay:~"
-"%  ~S"
+"Ilefay ashay away aslfay ilefay ypetay, utbay onay aslfay ilefay eaderhay:"
+"~%  ~S"
 
 #: src/code/load.lisp
 msgid ""
@@ -14850,6 +14888,12 @@ msgstr ""
 msgid "*load-verbose* is bound to this before loading files."
 msgstr "*load-verbose* isway oundbay otay isthay eforebay oadinglay ilesfay."
 
+#: src/code/module.lisp
+msgid ""
+"Provider functions for cmucl modules and libraries.  These are\n"
+"  searched first before trying *module-provider-functions*"
+msgstr ""
+
 #: src/code/module.lisp
 msgid "See function documentation for REQUIRE"
 msgstr "Eesay unctionfay ocumentationday orfay REQUIRE"
@@ -15556,10 +15600,6 @@ msgstr ""
 msgid "Unknown error:~{ ~S~})"
 msgstr "Unknownway errorway:~{ ~S~})"
 
-#: src/code/interr.lisp
-msgid "Invalid number of arguments: ~S"
-msgstr "Invalidway umbernay ofway argumentsway: ~S"
-
 #: src/code/interr.lisp
 msgid "Attempt to use VALUES-LIST on a dotted-list:~%  ~S"
 msgstr "Attemptway otay useway VALUES-LIST onway away ottedday-istlay:~%  ~S"
@@ -15625,8 +15665,8 @@ msgstr "Internalway errorway ~D: ~Away.  argsway=~S"
 msgid ""
 "~2&~@<A control stack overflow has occurred:~%~\n"
 "            the program has entered the yellow control stack guard zone.~%~\n"
-"            Please note that you will be returned to the Top-Level if you~"
-"%~\n"
+"            Please note that you will be returned to the Top-Level if "
+"you~%~\n"
 "            enter the red control stack guard zone while debugging.~@:>~2%"
 msgstr ""
 "~2&~@<Away ontrolcay tacksay overflowway ashay occurredway:~%~\n"
@@ -15644,16 +15684,16 @@ msgid ""
 "           Returning to Top-Level.~@:>~2%"
 msgstr ""
 "~2&~@<Atalfay ontrolcay tacksay overflowway.  Ouyay avehay enteredway~%~\n"
-"           ethay edray ontrolcay tacksay uardgay onezay ilewhay ebuggingday.~"
-"%~\n"
+"           ethay edray ontrolcay tacksay uardgay onezay ilewhay ebuggingday."
+"~%~\n"
 "           Eturningray otay Optay-Evellay.~@:>~2%"
 
 #: src/code/interr.lisp
 msgid ""
 "~2&~@<Imminent dynamic space overflow has occurred:~%~\n"
 "            Only a small amount of dynamic space is available now.~%~\n"
-"            Please note that you will be returned to the Top-Level without~"
-"%~\n"
+"            Please note that you will be returned to the Top-Level "
+"without~%~\n"
 "            warning if you run out of space while debugging.~@:>~%"
 msgstr ""
 "~2&~@<Imminentway ynamicday acespay overflowway ashay occurredway:~%~\n"
@@ -19538,8 +19578,8 @@ msgstr ""
 "ouldshay ebay away\n"
 "istlay ofway ibrarylay ilesfay asway ouldway ebay ecifiedspay otay dlay. "
 "Eythay illway ebay\n"
-"earchedsay inway ethay orderway ivengay. Ethay efaultday isway ustjay \"-clay"
-"\", i.e., ethay C\n"
+"earchedsay inway ethay orderway ivengay. Ethay efaultday isway ustjay \"-"
+"clay\", i.e., ethay C\n"
 "ibrarylay. Ethay BASE-FILE argumentway isway usedway otay ecifyspay away "
 "ilefay otay useway asway\n"
 "ethay tartingsay aceplay orfay efinedday ymbolssay. Ethay efaultday isway "
@@ -20335,8 +20375,8 @@ msgstr ""
 "Incompatiblyway edefiningray otsslay ofway ucturestray assclay ~S~@\n"
 "\t  Akemay uresay anyway usesway ofway affectedway accessorsway areway "
 "ecompiledray:~@\n"
-"\t  ~@[  Esethay otsslay ereway ovedmay otay ewnay ositionspay:~%    ~S~"
-"%~]~\n"
+"\t  ~@[  Esethay otsslay ereway ovedmay otay ewnay ositionspay:~%    "
+"~S~%~]~\n"
 "\t  ~@[  Esethay otsslay avehay ewnay incompatibleway ypestay:~%    ~S~%~]~\n"
 "\t  ~@[  Esethay otsslay ereway eletedday:~%    ~S~%~]"
 
@@ -21750,6 +21790,23 @@ msgstr ""
 "odifiablemay aracterschay\n"
 "  elimitedday ybay onnay-asecay-odifiablemay arschay.  "
 
+#: src/code/unicode.lisp
+msgid ""
+"Decompose the Hangul syllable codepoint CP to an equivalent sequence\n"
+"  of conjoining jamo and print the decomposed result to the stream\n"
+"  STREAM."
+msgstr ""
+
+#: src/code/unicode.lisp
+msgid "Test if CODEPOINT is a Hangul syllable"
+msgstr ""
+
+#: src/code/unicode.lisp
+msgid ""
+"Decompose any Hangul syllables in STRING to an equivalent sequence of\n"
+"  conjoining jamo characters."
+msgstr ""
+
 #: src/compiler/macros.lisp
 msgid ""
 "Policy Node Condition*\n"
@@ -23094,8 +23151,8 @@ msgid ""
 "\t   conflicts with the definition's result type assertion:~%  ~S"
 msgstr ""
 "Ethay esultray ypetay omfray ~Away:~%  ~S~@\n"
-"\t   onflictscay ithway ethay efinitionday's esultray ypetay assertionway:~"
-"%  ~S"
+"\t   onflictscay ithway ethay efinitionday's esultray ypetay assertionway:"
+"~%  ~S"
 
 #: src/compiler/ctype.lisp
 msgid ""
@@ -25107,6 +25164,11 @@ msgid "Can't make a compiled function from ~S"
 msgstr "Ancay't akemay away ompiledcay unctionfay omfray ~S"
 
 #: src/compiler/disassem.lisp
+msgid "Default value for :radix argument for disassem:disassemble"
+msgstr ""
+
+#: src/compiler/disassem.lisp
+#, fuzzy
 msgid ""
 "Disassemble the machine code associated with OBJECT, which can be a\n"
 "  function, a lambda expression, or a symbol with a function definition.  "
@@ -25124,7 +25186,7 @@ msgid ""
 "  :Radix\n"
 "      The disassembler uses the specified base, case, and radix when\n"
 "      printing the disassembled code.  The default values are 16,\n"
-"      :downcase, and *print-radix*, respectively."
+"      :downcase, and *disassemble-print-radix*, respectively."
 msgstr ""
 "Isassembleday ethay achinemay odecay associatedway ithway OBJECT, ichwhay "
 "ancay ebay away\n"
@@ -27979,8 +28041,8 @@ msgid ""
 msgstr ""
 "~S isway otnay alidvay asway ethay ~:R ~:[esultray~;argumentway~] otay "
 "ethay~@\n"
-"\t        ~S VOP, incesay ethay TN's imitivepray ypetay ~S allowsway Sscay:~"
-"%  ~S~@\n"
+"\t        ~S VOP, incesay ethay TN's imitivepray ypetay ~S allowsway Sscay:"
+"~%  ~S~@\n"
 "\t\t~:[ichwhay annotcay ebay oercedcay orway oadedlay intoway ethay "
 "allowedway Sscay:~\n"
 "\t\t~%  ~S~;~*~]~:[~;~@\n"
@@ -28014,8 +28076,8 @@ msgstr ""
 "~\n"
 "\t        ~%  ~S~%Imitivepray ypetay: ~S~@\n"
 "\t\tSC estrictionsray:~%  ~S~@\n"
-"\t\t~@[Ethay imitivepray ypetay isallowsday esethay oadablelay Sscay:~%  ~S~"
-"%~]~\n"
+"\t\t~@[Ethay imitivepray ypetay isallowsday esethay oadablelay Sscay:~%  "
+"~S~%~]~\n"
 "\t\t~@[Onay ovemay Opsvay areway efinedday otay oercecay otay esethay "
 "allowedway Sscay:~\n"
 "\t\t~%  ~S~%~]~\n"
@@ -31016,6 +31078,29 @@ msgstr ""
 "eplacedray ybay ethay\n"
 "Unicodeway eplacementray aracterchay."
 
+#~ msgid "Unknown"
+#~ msgstr "Unknownway"
+
+#~ msgid "Site name not initialized"
+#~ msgstr "Itesay amenay otnay initializedway"
+
+#~ msgid ""
+#~ "Print a breakdown by instance type of all the instances allocated in\n"
+#~ "  Space.  If TOP-N is true, print only information for the the TOP-N "
+#~ "types with\n"
+#~ "  largest usage."
+#~ msgstr ""
+#~ "Intpray away eakdownbray ybay instanceway ypetay ofway allway ethay "
+#~ "instancesway allocatedway inway\n"
+#~ "  Acespay.  Ifway TOP-N isway uetray, intpray onlyway informationway "
+#~ "orfay ethay ethay TOP-N ypestay ithway\n"
+#~ "  argestlay usageway."
+
+#~ msgid "Returns T if a character is available on the given Stream."
+#~ msgstr ""
+#~ "Eturnsray T ifway away aracterchay isway availableway onway ethay ivengay "
+#~ "Eamstray."
+
 #~ msgid "Shouldn't happen"
 #~ msgstr "Ouldnshay't appenhay"
 


=====================================
src/i18n/locale/ko/LC_MESSAGES/cmucl-bsd-os.po
=====================================
@@ -15,22 +15,10 @@ msgstr ""
 "Content-Type: text/plain; charset=UTF-8\n"
 "Content-Transfer-Encoding: 8bit\n"
 
-#: src/code/bsd-os.lisp
-msgid "Version string for supporting software"
-msgstr "소프트 웨어를 지원하기위한 버전 문자열"
-
-#: src/code/bsd-os.lisp
-msgid "Returns a string describing version of the supporting software."
-msgstr "문자열을 지원하는 소프트웨어의 버전을 설명을 반환합니다."
-
 #: src/code/bsd-os.lisp
 msgid "Unix system call getrusage failed: ~A."
 msgstr "유닉스 시스템 호출에 실패 getrusage: ~A 등급."
 
-#: src/code/bsd-os.lisp
-msgid "Getpagesize failed: ~A"
-msgstr "Getpagesize 실패: ~ A 등급"
-
 #: src/code/signal.lisp
 msgid "Emt instruction"
 msgstr ""
@@ -38,3 +26,12 @@ msgstr ""
 #: src/code/signal.lisp
 msgid "Bad argument to system call"
 msgstr ""
+
+#~ msgid "Version string for supporting software"
+#~ msgstr "소프트 웨어를 지원하기위한 버전 문자열"
+
+#~ msgid "Returns a string describing version of the supporting software."
+#~ msgstr "문자열을 지원하는 소프트웨어의 버전을 설명을 반환합니다."
+
+#~ msgid "Getpagesize failed: ~A"
+#~ msgstr "Getpagesize 실패: ~ A 등급"


=====================================
src/i18n/locale/ko/LC_MESSAGES/cmucl-linux-os.po
=====================================
@@ -15,14 +15,6 @@ msgstr ""
 "Content-Type: text/plain; charset=UTF-8\n"
 "Content-Transfer-Encoding: 8bit\n"
 
-#: src/code/linux-os.lisp
-msgid "Returns a string describing version of the supporting software."
-msgstr ""
-
-#: src/code/linux-os.lisp
-msgid "Unix system call getrusage failed: ~A."
-msgstr ""
-
 #: src/code/linux-os.lisp
 msgid "Getpagesize failed: ~A"
 msgstr ""


=====================================
src/i18n/locale/ko/LC_MESSAGES/cmucl-unix.po
=====================================
@@ -15,6 +15,15 @@ msgstr ""
 "Content-Type: text/plain; charset=UTF-8\n"
 "Content-Transfer-Encoding: 8bit\n"
 
+#: src/code/unix.lisp
+msgid ""
+"The encoding to use for converting a namestring to a string that can\n"
+"  be used by the operations system.  It must be a valid\n"
+"  external-format name or :NULL.  :NULL means the string\n"
+"  is passed as is to the operating system.  The operating system will\n"
+"  get the low 8 bits of each UTF-16 code unit of the string."
+msgstr ""
+
 #: src/code/unix.lisp
 msgid "Syscall ~A failed: ~A"
 msgstr ""
@@ -461,10 +470,6 @@ msgid ""
 "   current process."
 msgstr ""
 
-#: src/code/unix.lisp
-msgid "Unix-getpagesize returns the number of bytes in a system page."
-msgstr ""
-
 #: src/code/unix.lisp
 msgid "Unix-gethostname returns the name of the host machine as a string."
 msgstr ""
@@ -489,22 +494,68 @@ msgstr ""
 #: src/code/unix.lisp
 msgid ""
 "Unix-stat retrieves information about the specified\n"
-"   file returning them in the form of multiple values.\n"
-"   See the UNIX Programmer's Manual for a description\n"
-"   of the values returned.  If the call fails, then NIL\n"
-"   and an error number is returned instead."
+"   file returning them in the form of multiple values.  If the call\n"
+"   fails, then NIL and an error number is returned.  If the call\n"
+"   succeeds, then T is returned in addition to the following values\n"
+"   from the stat struct st:\n"
+"\n"
+"     st_dev        Device ID\n"
+"     st_ino        File serial number\n"
+"     st_mode       Mode of file\n"
+"     st_nlink      Number of hard links to the file\n"
+"     st_uid        User ID\n"
+"     st_gid        Group ID\n"
+"     st_rdev       Device ID (if file is character or block special)\n"
+"     st_atime      Last data access time, in sec\n"
+"     st_mtime      Last data modification time, in sec\n"
+"     st_ctime      Last file status change time, in sec\n"
+"     st_blksize    Preferred I/O block size\n"
+"     st_blocks     Number of blocks allocated. (Block size is implementation "
+"dependent.)\n"
 msgstr ""
 
 #: src/code/unix.lisp
 msgid ""
-"Unix-lstat is similar to unix-stat except the specified\n"
-"   file must be a symbolic link."
+"Unix-fstat is similar to unix-stat except the file is specified\n"
+"   by the file descriptor fd.  If the call fails, then NIL and an\n"
+"   error number is returned.  If the call succeeds, then T is returned\n"
+"   in addition to the following values from the stat struct st:\n"
+"\n"
+"     st_dev        Device ID\n"
+"     st_ino        File serial number\n"
+"     st_mode       Mode of file\n"
+"     st_nlink      Number of hard links to the file\n"
+"     st_uid        User ID\n"
+"     st_gid        Group ID\n"
+"     st_rdev       Device ID (if file is character or block special)\n"
+"     st_atime      Last data access time, in sec\n"
+"     st_mtime      Last data modification time, in sec\n"
+"     st_ctime      Last file status change time, in sec\n"
+"     st_blksize    Preferred I/O block size\n"
+"     st_blocks     Number of blocks allocated. (Block size is implementation "
+"dependent.)\n"
 msgstr ""
 
 #: src/code/unix.lisp
 msgid ""
-"Unix-fstat is similar to unix-stat except the file is specified\n"
-"   by the file descriptor fd."
+"Unix-lstat is similar to unix-stat except the specified\n"
+"   file must be a symbolic link.  If the call fails, then NIL and an\n"
+"   error number is returned.  If the call succeeds, then T is returned\n"
+"   in addition to the following values from the stat struct st:\n"
+"\n"
+"     st_dev        Device ID\n"
+"     st_ino        File serial number\n"
+"     st_mode       Mode of file\n"
+"     st_nlink      Number of hard links to the file\n"
+"     st_uid        User ID\n"
+"     st_gid        Group ID\n"
+"     st_rdev       Device ID (if file is character or block special)\n"
+"     st_atime      Last data access time, in sec\n"
+"     st_mtime      Last data modification time, in sec\n"
+"     st_ctime      Last file status change time, in sec\n"
+"     st_blksize    Preferred I/O block size\n"
+"     st_blocks     Number of blocks allocated. (Block size is implementation "
+"dependent.)\n"
 msgstr ""
 
 #: src/code/unix.lisp
@@ -1302,6 +1353,14 @@ msgid ""
 "found."
 msgstr ""
 
+#: src/code/unix.lisp
+msgid ""
+"Return a USER-INFO structure for the user identified by UID.  If\n"
+"  not found, NIL is returned with a second value indicating the cause\n"
+"  of the failure.  In particular, if the second value is 0 (or\n"
+"  ENONENT, ESRCH, EBADF, etc.), then the uid was not found."
+msgstr ""
+
 #: src/code/unix.lisp
 msgid ""
 "Unix-times returns information about the cpu time usage of the process\n"
@@ -1353,3 +1412,18 @@ msgid ""
 "   of the child in the parent if it works, or NIL and an error number if it\n"
 "   doesn't work."
 msgstr ""
+
+#: src/code/unix.lisp
+msgid "Call setlocale(3c) with fixed args.  Returns 0 on success."
+msgstr ""
+
+#: src/code/unix.lisp
+msgid ""
+"Get LC_MESSAGES from the current locale.  If we can't, return\n"
+"  NIL.  A call to UNIX-SETLOCALE must have been done previously before\n"
+"  calling this so that the correct locale is returned."
+msgstr ""
+
+#: src/code/unix.lisp
+msgid "Get the codeset from the locale"
+msgstr ""


=====================================
src/i18n/locale/ko/LC_MESSAGES/cmucl-x86-vm.po
=====================================
@@ -144,6 +144,10 @@ msgstr ""
 msgid "Class not yet defined: ~S"
 msgstr ""
 
+#: src/compiler/x86/insts.lisp
+msgid "Sign extend the N-bit number X"
+msgstr ""
+
 #: src/compiler/x86/macros.lisp
 msgid "Move SRC into DST unless they are location=."
 msgstr ""


=====================================
src/i18n/locale/ko/LC_MESSAGES/cmucl.po
=====================================
@@ -312,8 +312,9 @@ msgstr ""
 
 #: src/code/lispinit.lisp
 msgid ""
-"Terminates the current Lisp.  Things are cleaned up unless Recklessly-P is\n"
-"  non-Nil."
+"Terminates the current Lisp.  Things are cleaned up unless\n"
+"  Recklessly-P is non-Nil.  On quitting, Lisp sets the return code to\n"
+"  Code, defaulting to 0."
 msgstr ""
 
 #: src/code/lispinit.lisp
@@ -4013,6 +4014,13 @@ msgid ""
 "  string is returned."
 msgstr ""
 
+#: src/code/string.lisp
+msgid ""
+"Convert STRING to NFD (or NFKD).  If :darwinp is non-NIL, then\n"
+"  characters in the ranges U2000-U2FFF, UF900-UFA6A, and U2F800-U2FA1D\n"
+"  are not decomposed, as specified for Darwin pathnames."
+msgstr ""
+
 #: src/code/string.lisp
 msgid ""
 "Convert a sequence of codepoints to a string.  Codepoints outside\n"
@@ -5601,17 +5609,6 @@ msgid ""
 "  NIL if no such character exists."
 msgstr ""
 
-#: 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.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"
@@ -5647,23 +5644,23 @@ msgid "Returns a string describing the supporting software."
 msgstr ""
 
 #: src/code/misc.lisp
-msgid "The value of SHORT-SITE-NAME.  Set in library:site-init.lisp."
+msgid "Version string for supporting software"
 msgstr ""
 
 #: src/code/misc.lisp
-msgid "Unknown"
+msgid "Returns a string describing version of the supporting software."
 msgstr ""
 
 #: src/code/misc.lisp
-msgid "Returns a string with the abbreviated site name."
+msgid "The value of SHORT-SITE-NAME.  Set in library:site-init.lisp."
 msgstr ""
 
 #: src/code/misc.lisp
-msgid "The value of LONG-SITE-NAME.  Set in library:site-init.lisp."
+msgid "Returns a string with the abbreviated site name."
 msgstr ""
 
 #: src/code/misc.lisp
-msgid "Site name not initialized"
+msgid "The value of LONG-SITE-NAME.  Set in library:site-init.lisp."
 msgstr ""
 
 #: src/code/misc.lisp
@@ -5694,7 +5691,20 @@ msgid ""
 "If\n"
 "  it is not already compiled, the compiler is called to produce something "
 "to\n"
-"  disassemble."
+"  disassemble.\n"
+"\n"
+"  Also see disassem:disassemble for finer control of disassembly."
+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
@@ -6145,6 +6155,14 @@ msgstr ""
 msgid "Same as -help."
 msgstr ""
 
+#: src/code/commandline.lisp
+msgid "Prints the cmucl version and exits"
+msgstr ""
+
+#: src/code/commandline.lisp
+msgid "Prints the cmucl version and exits; same as -version"
+msgstr ""
+
 #: src/code/env-access.lisp
 msgid ""
 "Returns information about the symbol VAR in the lexical environment ENV.\n"
@@ -6334,10 +6352,18 @@ msgstr ""
 
 #: src/code/room.lisp
 msgid ""
-"Print a breakdown by instance type of all the instances allocated in\n"
-"  Space.  If TOP-N is true, print only information for the the TOP-N types "
-"with\n"
-"  largest usage."
+"Print a breakdown by instance type of all the allocation in Space.  \n"
+"\n"
+"  :TOP-N \n"
+"      If true, print only the TOP-N types by largest usage.\n"
+"\n"
+"  :ENTRIES-VAR\n"
+"      If bound, contains the name of the symbol used to store the hash-"
+"table\n"
+"      of allocated entries for later processing.\n"
+"\n"
+"  :CALL-SOURCE\n"
+"      A string identifying the location from which instance-usage was called."
 msgstr ""
 
 #: src/code/room.lisp
@@ -6722,6 +6748,12 @@ msgstr ""
 msgid "This is true if and only if the lisp was started with the -edit switch."
 msgstr ""
 
+#: src/code/save.lisp
+msgid ""
+"Add external format alias for :locale to the format specified by\n"
+"  the locale as set by setlocale(3C)."
+msgstr ""
+
 #: src/code/save.lisp
 msgid ""
 "Saves a CMU Common Lisp core image in the file of the specified name.  The\n"
@@ -7008,7 +7040,15 @@ msgid "Impossible case reached in PEEK-CHAR"
 msgstr ""
 
 #: src/code/stream.lisp
-msgid "Returns T if a character is available on the given Stream."
+msgid ""
+"Returns T if a character is available on the given Stream.\n"
+"  Argument Width is only used by instances of SIMPLE-STREAM. If\n"
+"  Stream is a LISP-STREAM or FUNDAMENTAL-STREAM, passing more\n"
+"  than one argument is invalid."
+msgstr ""
+
+#: src/code/interr.lisp src/code/stream.lisp
+msgid "Invalid number of arguments: ~S"
 msgstr ""
 
 #: src/code/stream.lisp
@@ -10412,6 +10452,12 @@ msgstr ""
 msgid "*load-verbose* is bound to this before loading files."
 msgstr ""
 
+#: src/code/module.lisp
+msgid ""
+"Provider functions for cmucl modules and libraries.  These are\n"
+"  searched first before trying *module-provider-functions*"
+msgstr ""
+
 #: src/code/module.lisp
 msgid "See function documentation for REQUIRE"
 msgstr ""
@@ -10897,10 +10943,6 @@ msgstr ""
 msgid "Unknown error:~{ ~S~})"
 msgstr ""
 
-#: src/code/interr.lisp
-msgid "Invalid number of arguments: ~S"
-msgstr ""
-
 #: src/code/interr.lisp
 msgid "Attempt to use VALUES-LIST on a dotted-list:~%  ~S"
 msgstr ""
@@ -10956,8 +10998,8 @@ msgstr ""
 msgid ""
 "~2&~@<A control stack overflow has occurred:~%~\n"
 "            the program has entered the yellow control stack guard zone.~%~\n"
-"            Please note that you will be returned to the Top-Level if you~"
-"%~\n"
+"            Please note that you will be returned to the Top-Level if "
+"you~%~\n"
 "            enter the red control stack guard zone while debugging.~@:>~2%"
 msgstr ""
 
@@ -10972,8 +11014,8 @@ msgstr ""
 msgid ""
 "~2&~@<Imminent dynamic space overflow has occurred:~%~\n"
 "            Only a small amount of dynamic space is available now.~%~\n"
-"            Please note that you will be returned to the Top-Level without~"
-"%~\n"
+"            Please note that you will be returned to the Top-Level "
+"without~%~\n"
 "            warning if you run out of space while debugging.~@:>~%"
 msgstr ""
 
@@ -15268,6 +15310,23 @@ msgid ""
 "  delimited by non-case-modifiable chars.  "
 msgstr ""
 
+#: src/code/unicode.lisp
+msgid ""
+"Decompose the Hangul syllable codepoint CP to an equivalent sequence\n"
+"  of conjoining jamo and print the decomposed result to the stream\n"
+"  STREAM."
+msgstr ""
+
+#: src/code/unicode.lisp
+msgid "Test if CODEPOINT is a Hangul syllable"
+msgstr ""
+
+#: src/code/unicode.lisp
+msgid ""
+"Decompose any Hangul syllables in STRING to an equivalent sequence of\n"
+"  conjoining jamo characters."
+msgstr ""
+
 #: src/compiler/macros.lisp
 msgid ""
 "Policy Node Condition*\n"
@@ -17366,6 +17425,10 @@ msgstr ""
 msgid "Can't make a compiled function from ~S"
 msgstr ""
 
+#: src/compiler/disassem.lisp
+msgid "Default value for :radix argument for disassem:disassemble"
+msgstr ""
+
 #: src/compiler/disassem.lisp
 msgid ""
 "Disassemble the machine code associated with OBJECT, which can be a\n"
@@ -17384,7 +17447,7 @@ msgid ""
 "  :Radix\n"
 "      The disassembler uses the specified base, case, and radix when\n"
 "      printing the disassembled code.  The default values are 16,\n"
-"      :downcase, and *print-radix*, respectively."
+"      :downcase, and *disassemble-print-radix*, respectively."
 msgstr ""
 
 #: src/compiler/disassem.lisp



View it on GitLab: https://gitlab.common-lisp.net/cmucl/cmucl/-/compare/d53c9575b1166a3a9d5e98b727928a1156e90f83...e82bebb7be1f2a642286246071c0b470dacacaa0

-- 
View it on GitLab: https://gitlab.common-lisp.net/cmucl/cmucl/-/compare/d53c9575b1166a3a9d5e98b727928a1156e90f83...e82bebb7be1f2a642286246071c0b470dacacaa0
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/20230514/58f25930/attachment-0001.html>


More information about the cmucl-cvs mailing list