[Git][cmucl/cmucl][issue-195-relocatable-stacks-by-default] 12 commits: Fix #143 - Adds argument checking for lisp-streams and Gray sttreams for LISTEN
Raymond Toy (@rtoy)
gitlab at common-lisp.net
Mon May 15 17:32:48 UTC 2023
Raymond Toy pushed to branch issue-195-relocatable-stacks-by-default at cmucl / cmucl
Commits:
6162e5b4 by Jon Boone at 2023-05-09T17:38:36+00:00
Fix #143 - Adds argument checking for lisp-streams and Gray sttreams for LISTEN
- - - - -
e472bd4f by Jon Boone at 2023-05-09T17:38:47+00:00
Merge branch 'issue-143-ansi-compliance-failure-listen-extra-argument' into 'master'
Fix #143 - Adds argument checking for lisp-streams and Gray sttreams for LISTEN
Closes #143
See merge request cmucl/cmucl!145
- - - - -
a4c000f9 by Raymond Toy at 2023-05-10T11:48:33-07:00
Update cmucl.pot
Issue #143 updated a docstring so the pot file needs updating.
- - - - -
ee480fbf by Raymond Toy at 2023-05-10T11:49:20-07:00
Update release notes
Issue #143 has been fixed.
- - - - -
7774063f by Raymond Toy at 2023-05-12T16:28:16-07:00
Update pot files for Darwin
- - - - -
d53c9575 by Raymond Toy at 2023-05-12T16:43:51-07:00
Update cmucl.pot and cmucl-unix.pot for Linux
See also #223.
- - - - -
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.
- - - - -
8410b57a by Raymond Toy at 2023-05-13T19:38:33-07:00
Update for release-21e builds.
- - - - -
94eed5eb by Raymond Toy at 2023-05-15T09:52:39-07:00
Merge branch 'master' into issue-195-relocatable-stacks-by-default
- - - - -
204ef2fc by Raymond Toy at 2023-05-15T10:31:48-07:00
Remove :relocatable-stacks from *features*
- - - - -
18 changed files:
- .gitlab-ci.yml
- + src/bootfiles/21d/boot-21e.lisp
- src/code/sparc-svr4-vm.lisp
- src/code/stream.lisp
- src/code/x86-vm.lisp
- src/compiler/byte-comp.lisp
- src/general-info/release-21e.md
- src/i18n/locale/cmucl.pot
- 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,6 +1,6 @@
variables:
- download_url: "https://common-lisp.net/project/cmucl/downloads/snapshots/2023/04"
- version: "2023-04-x86"
+ download_url: "https://common-lisp.net/project/cmucl/downloads/release/21e"
+ version: "21e-x86"
bootstrap: ""
stages:
=====================================
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/code/sparc-svr4-vm.lisp
=====================================
@@ -26,9 +26,6 @@
#+complex-fp-vops
(sys:register-lisp-feature :complex-fp-vops)
-#+(and sparc solaris)
-(sys:register-lisp-runtime-feature :relocatable-stacks)
-
;;;; The sigcontext structure.
=====================================
src/code/stream.lisp
=====================================
@@ -604,19 +604,34 @@
:skipped-char-form ()
:eof-detected-form (eof-or-lose stream eof-errorp eof-value))))))
-(defun listen (&optional (stream *standard-input*) (width 1))
- "Returns T if a character is available on the given Stream."
+(defun listen (&optional (stream *standard-input*) (width 1 width-p))
+ _N"Returns T if a character is available on the given Stream.
+ Argument Width is only used by instances of SIMPLE-STREAM. If
+ Stream is a LISP-STREAM or FUNDAMENTAL-STREAM, passing more
+ than one argument is invalid."
(declare (type streamlike stream))
(let ((stream (in-synonym-of stream)))
(stream-dispatch stream
;; simple-stream
(stream::%listen stream width)
;; lisp-stream
- (or (/= (the fixnum (lisp-stream-in-index stream)) in-buffer-length)
- ;; Test for t explicitly since misc methods return :eof sometimes.
- (eq (funcall (lisp-stream-misc stream) stream :listen) t))
+ (progn
+ (when width-p
+ (error 'kernel:simple-program-error
+ :function-name 'listen
+ :format-control (intl:gettext "Invalid number of arguments: ~S")
+ :format-arguments (list 2)))
+ (or (/= (the fixnum (lisp-stream-in-index stream)) in-buffer-length)
+ ;; Test for t explicitly since misc methods return :eof sometimes.
+ (eq (funcall (lisp-stream-misc stream) stream :listen) t)))
;; fundamental-stream
- (stream-listen stream))))
+ (progn
+ (when width-p
+ (error 'kernel:simple-program-error
+ :function-name 'listen
+ :format-control (intl:gettext "Invalid number of arguments: ~S")
+ :format-arguments (list 2)))
+ (stream-listen stream)))))
(defun read-char-no-hang (&optional (stream *standard-input*)
(eof-errorp t) eof-value recursive-p)
=====================================
src/code/x86-vm.lisp
=====================================
@@ -42,9 +42,6 @@
(setf *features* (delete :x87 *features*))
(sys:register-lisp-feature :sse2))
-#+(or darwin linux)
-(sys:register-lisp-runtime-feature :relocatable-stacks)
-
;;;; The sigcontext structure.
=====================================
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.
@@ -64,6 +62,7 @@ public domain.
* ~~#140~~ External format for streams that are not `file-stream`'s.
* ~~#141~~ Disallow locales that are pathnames to a localedef file.
* ~~#142~~ `(random 0)` signals incorrect error.
+ * ~~#143~~ `LISTEN` doesn't signal error when given more than one arg
* ~~#147~~ `stream-line-column` method missing for `fundamental-character-output-stream`.
* ~~#149~~ Call setlocale(3C) on startup.
* ~~#150~~ Add aliases for external format cp949 and euckr.
=====================================
src/i18n/locale/cmucl.pot
=====================================
@@ -7024,7 +7024,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
@@ -10912,10 +10920,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 ""
=====================================
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/b5bbd020f23c5d759ac7af68a070ed3eacdb1da4...204ef2fc6720222838c3ca2b936fb64aa169a113
--
View it on GitLab: https://gitlab.common-lisp.net/cmucl/cmucl/-/compare/b5bbd020f23c5d759ac7af68a070ed3eacdb1da4...204ef2fc6720222838c3ca2b936fb64aa169a113
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/20230515/57c5fcb8/attachment-0001.html>
More information about the cmucl-cvs
mailing list