diff --git a/.gitlab-ci.yml b/.gitlab-ci.yml index 42c9fbebf9f594d7bbd6408f964b9a32e7f4fd98..d8df06e382e60668c731f602cc8fedefcd8744ef 100644 --- a/.gitlab-ci.yml +++ b/.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 diff --git a/src/bootfiles/21d/boot-21e.lisp b/src/bootfiles/21d/boot-21e.lisp new file mode 100644 index 0000000000000000000000000000000000000000..e9276934e8dedd5e6ec504abe71f7fa1ff7d7607 --- /dev/null +++ b/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)) + diff --git a/src/compiler/byte-comp.lisp b/src/compiler/byte-comp.lisp index 39d5b1098118919bf4cbb3fbef80655da17a0961..a8ffa33dfcca41d279ac45a41bebf1efa4cd837f 100644 --- a/src/compiler/byte-comp.lisp +++ b/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 to *features* diff --git a/src/general-info/release-21e.md b/src/general-info/release-21e.md index e9b5569f264f3d69ff02df84c6fc9b8351dd85ae..a5773e74c74ed08882ec4eaa272a35d0c5b45e3a 100644 --- a/src/general-info/release-21e.md +++ b/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. diff --git a/src/i18n/locale/en@piglatin/LC_MESSAGES/cmucl-bsd-os.po b/src/i18n/locale/en@piglatin/LC_MESSAGES/cmucl-bsd-os.po index e26542de12db8fe31a04eb1bbfcd971b35f8f846..3660370d0c4aa343f75ae21050ae50b0ea14d6de 100644 --- a/src/i18n/locale/en@piglatin/LC_MESSAGES/cmucl-bsd-os.po +++ b/src/i18n/locale/en@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" diff --git a/src/i18n/locale/en@piglatin/LC_MESSAGES/cmucl-linux-os.po b/src/i18n/locale/en@piglatin/LC_MESSAGES/cmucl-linux-os.po index 17c6e3d50f43ada5d1b82110db9cfc4018b2210b..c6ab68d06372c16237fa425a64393ad298b93886 100644 --- a/src/i18n/locale/en@piglatin/LC_MESSAGES/cmucl-linux-os.po +++ b/src/i18n/locale/en@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." diff --git a/src/i18n/locale/en@piglatin/LC_MESSAGES/cmucl-unix.po b/src/i18n/locale/en@piglatin/LC_MESSAGES/cmucl-unix.po index dd04562e566fbd13b1fc8c6039354dda61b67286..ef97cfa46679453c589c2d820338832c07081a38 100644 --- a/src/i18n/locale/en@piglatin/LC_MESSAGES/cmucl-unix.po +++ b/src/i18n/locale/en@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" diff --git a/src/i18n/locale/en@piglatin/LC_MESSAGES/cmucl-x86-vm.po b/src/i18n/locale/en@piglatin/LC_MESSAGES/cmucl-x86-vm.po index 6aa32fb155ec1ceefbe1b9209bb1ce16f8ab2af3..19f961cfb6528db40e22436fcf806718f3702a73 100644 --- a/src/i18n/locale/en@piglatin/LC_MESSAGES/cmucl-x86-vm.po +++ b/src/i18n/locale/en@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=." diff --git a/src/i18n/locale/en@piglatin/LC_MESSAGES/cmucl.po b/src/i18n/locale/en@piglatin/LC_MESSAGES/cmucl.po index 2b5d428fa7d5ffb063d49703e8d8e6c45195b445..d9f8b340390961ae68b48fc419dc90d4ca8d1752 100644 --- a/src/i18n/locale/en@piglatin/LC_MESSAGES/cmucl.po +++ b/src/i18n/locale/en@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&~@~2%" msgstr "" "~2&~@~2%" msgstr "" "~2&~@~2%" #: src/code/interr.lisp msgid "" "~2&~@~%" msgstr "" "~2&~@~2%" msgstr "" @@ -10972,8 +11014,8 @@ msgstr "" msgid "" "~2&~@~%" 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