[Git][cmucl/cmucl][master] 2 commits: Update from logs.

Raymond Toy rtoy at common-lisp.net
Sat May 21 17:57:09 UTC 2016


Raymond Toy pushed to branch master at cmucl / cmucl


Commits:
f99ae944 by Raymond Toy at 2016-05-21T10:56:21-07:00
Update from logs.

- - - - -
c72b7e57 by Raymond Toy at 2016-05-21T10:56:55-07:00
Regenerated.

- - - - -


7 changed files:

- src/general-info/release-21b.txt
- src/i18n/locale/en at piglatin/LC_MESSAGES/cmucl-unix-glibc2.po
- src/i18n/locale/en at piglatin/LC_MESSAGES/cmucl-unix.po
- src/i18n/locale/en at piglatin/LC_MESSAGES/cmucl.po
- src/i18n/locale/ko/LC_MESSAGES/cmucl-unix-glibc2.po
- src/i18n/locale/ko/LC_MESSAGES/cmucl-unix.po
- src/i18n/locale/ko/LC_MESSAGES/cmucl.po


Changes:

=====================================
src/general-info/release-21b.txt
=====================================
--- a/src/general-info/release-21b.txt
+++ b/src/general-info/release-21b.txt
@@ -55,6 +55,9 @@ New in this release:
       * :env option for run-program
     * Maximum dynamic-space-size on Linux reduced to 1530 MB because
       that's the largest available space on 32-bit Ubuntu 11.10.
+    * For linux, darwin, and solaris/sparc, the binding stack and
+      control stack are now mapped into memory whereever the OS wishes
+      to place them instead of being mapped into a fixed location.
 
   * ANSI compliance fixes:
     * PATHNAME-MATCH-P did not accept search-lists.
@@ -84,6 +87,7 @@ New in this release:
     * Ticket #17 fixed: better docstring for *ENVIRONMENT-LIST*
     * Ticket #18 fixed: better description of :ENV option for
       RUN-PROGRAM.
+    * Ticket #22 fixed: Incorrect coercion to float.
 
   * Other changes:
 


=====================================
src/i18n/locale/en at piglatin/LC_MESSAGES/cmucl-unix-glibc2.po
=====================================
--- a/src/i18n/locale/en at piglatin/LC_MESSAGES/cmucl-unix-glibc2.po
+++ b/src/i18n/locale/en at piglatin/LC_MESSAGES/cmucl-unix-glibc2.po
@@ -1389,6 +1389,85 @@ msgstr "Itewray ybay ownerway"
 msgid "Get terminal output speed."
 msgstr "Etgay erminaltay outputway eedspay."
 
+#: src/code/unix-glibc2.lisp
+msgid ""
+"Get the value of the environment variable named Name.  If no such\n"
+"  variable exists, Nil is returned."
+msgstr ""
+"Etgay ethay aluevay ofway ethay environmentway ariablevay amednay Amenay.  "
+"Ifway onay uchsay\n"
+"  ariablevay existsway, Ilnay isway eturnedray."
+
+#: src/code/unix-glibc2.lisp
+msgid ""
+"Adds the environment variable named Name to the environment with\n"
+"  the given Value if Name does not already exist. If Name does exist,\n"
+"  the value is changed to Value if Overwrite is non-zero.  Otherwise,\n"
+"  the value is not changed."
+msgstr ""
+"Addsway ethay environmentway ariablevay amednay Amenay otay ethay "
+"environmentway ithway\n"
+"  ethay ivengay Aluevay ifway Amenay oesday otnay alreadyway existway. Ifway "
+"Amenay oesday existway,\n"
+"  ethay aluevay isway angedchay otay Aluevay ifway Overwriteway isway onnay-"
+"erozay.  Otherwiseway,\n"
+"  ethay aluevay isway otnay angedchay."
+
+#: src/code/unix-glibc2.lisp
+msgid ""
+"Adds or changes the environment.  Name-value must be a string of\n"
+"  the form \"name=value\".  If the name does not exist, it is added.\n"
+"  If name does exist, the value is updated to the given value."
+msgstr ""
+"Addsway orway angeschay ethay environmentway.  Amenay-aluevay ustmay ebay "
+"away ingstray ofway\n"
+"  ethay ormfay \"amenay=aluevay\".  Ifway ethay amenay oesday otnay "
+"existway, itway isway addedway.\n"
+"  Ifway amenay oesday existway, ethay aluevay isway updatedway otay ethay "
+"ivengay aluevay."
+
+#: src/code/unix-glibc2.lisp
+msgid "Removes the variable Name from the environment"
+msgstr "Emovesray ethay ariablevay Amenay omfray ethay environmentway"
+
+#: src/code/unix-glibc2.lisp
+msgid ""
+"Executes the Unix execve system call.  If the system call suceeds, lisp\n"
+"   will no longer be running in this process.  If the system call fails "
+"this\n"
+"   function returns two values: NIL and an error code.  Arg-list should be "
+"a\n"
+"   list of simple-strings which are passed as arguments to the exec'ed "
+"program.\n"
+"   Environment should be an a-list mapping symbols to simple-strings which "
+"this\n"
+"   function bashes together to form the environment for the exec'ed program."
+msgstr ""
+"Executesway ethay Unixway execveway ystemsay allcay.  Ifway ethay ystemsay "
+"allcay uceedssay, isplay\n"
+"   illway onay ongerlay ebay unningray inway isthay ocesspray.  Ifway ethay "
+"ystemsay allcay ailsfay isthay\n"
+"   unctionfay eturnsray wotay aluesvay: NIL andway anway errorway odecay.  "
+"Argway-istlay ouldshay ebay away\n"
+"   istlay ofway implesay-ingsstray ichwhay areway assedpay asway "
+"argumentsway otay ethay execway'edway ogrampray.\n"
+"   Environmentway ouldshay ebay anway away-istlay appingmay ymbolssay otay "
+"implesay-ingsstray ichwhay isthay\n"
+"   unctionfay ashesbay ogethertay otay ormfay ethay environmentway orfay "
+"ethay execway'edway ogrampray."
+
+#: src/code/unix-glibc2.lisp
+msgid ""
+"Executes the unix fork system call.  Returns 0 in the child and the pid\n"
+"   of the child in the parent if it works, or NIL and an error number if it\n"
+"   doesn't work."
+msgstr ""
+"Executesway ethay unixway orkfay ystemsay allcay.  Eturnsray 0 inway ethay "
+"ildchay andway ethay idpay\n"
+"   ofway ethay ildchay inway ethay arentpay ifway itway orksway, orway NIL "
+"andway anway errorway umbernay ifway itway\n"
+"   oesnday't orkway."
+
 #~ msgid ""
 #~ "Unix-getdtablesize returns the maximum size of the file descriptor\n"
 #~ "   table. (i.e. the maximum number of descriptors that can exist at\n"
@@ -1813,32 +1892,6 @@ msgstr "Etgay erminaltay outputway eedspay."
 #~ msgstr "Owflay ontrolcay"
 
 #~ msgid ""
-#~ "Executes the Unix execve system call.  If the system call suceeds, lisp\n"
-#~ "   will no longer be running in this process.  If the system call fails "
-#~ "this\n"
-#~ "   function returns two values: NIL and an error code.  Arg-list should "
-#~ "be a\n"
-#~ "   list of simple-strings which are passed as arguments to the exec'ed "
-#~ "program.\n"
-#~ "   Environment should be an a-list mapping symbols to simple-strings "
-#~ "which this\n"
-#~ "   function bashes together to form the environment for the exec'ed "
-#~ "program."
-#~ msgstr ""
-#~ "Executesway ethay Unixway execveway ystemsay allcay.  Ifway ethay "
-#~ "ystemsay allcay uceedssay, isplay\n"
-#~ "   illway onay ongerlay ebay unningray inway isthay ocesspray.  Ifway "
-#~ "ethay ystemsay allcay ailsfay isthay\n"
-#~ "   unctionfay eturnsray wotay aluesvay: NIL andway anway errorway "
-#~ "odecay.  Argway-istlay ouldshay ebay away\n"
-#~ "   istlay ofway implesay-ingsstray ichwhay areway assedpay asway "
-#~ "argumentsway otay ethay execway'edway ogrampray.\n"
-#~ "   Environmentway ouldshay ebay anway away-istlay appingmay ymbolssay "
-#~ "otay implesay-ingsstray ichwhay isthay\n"
-#~ "   unctionfay ashesbay ogethertay otay ormfay ethay environmentway orfay "
-#~ "ethay execway'edway ogrampray."
-
-#~ msgid ""
 #~ "Given a file path, an integer user-id, and an integer group-id,\n"
 #~ "   unix-chown changes the owner of the file and the group of the\n"
 #~ "   file to those specified.  Either the owner or the group may be\n"
@@ -1990,55 +2043,6 @@ msgstr "Etgay erminaltay outputway eedspay."
 #~ "   eturnedray ifway ethay allcay ailsfay."
 
 #~ msgid ""
-#~ "Executes the unix fork system call.  Returns 0 in the child and the pid\n"
-#~ "   of the child in the parent if it works, or NIL and an error number if "
-#~ "it\n"
-#~ "   doesn't work."
-#~ msgstr ""
-#~ "Executesway ethay unixway orkfay ystemsay allcay.  Eturnsray 0 inway "
-#~ "ethay ildchay andway ethay idpay\n"
-#~ "   ofway ethay ildchay inway ethay arentpay ifway itway orksway, orway "
-#~ "NIL andway anway errorway umbernay ifway itway\n"
-#~ "   oesnday't orkway."
-
-#~ msgid ""
-#~ "Get the value of the environment variable named Name.  If no such\n"
-#~ "  variable exists, Nil is returned."
-#~ msgstr ""
-#~ "Etgay ethay aluevay ofway ethay environmentway ariablevay amednay "
-#~ "Amenay.  Ifway onay uchsay\n"
-#~ "  ariablevay existsway, Ilnay isway eturnedray."
-
-#~ msgid ""
-#~ "Adds the environment variable named Name to the environment with\n"
-#~ "  the given Value if Name does not already exist. If Name does exist,\n"
-#~ "  the value is changed to Value if Overwrite is non-zero.  Otherwise,\n"
-#~ "  the value is not changed."
-#~ msgstr ""
-#~ "Addsway ethay environmentway ariablevay amednay Amenay otay ethay "
-#~ "environmentway ithway\n"
-#~ "  ethay ivengay Aluevay ifway Amenay oesday otnay alreadyway existway. "
-#~ "Ifway Amenay oesday existway,\n"
-#~ "  ethay aluevay isway angedchay otay Aluevay ifway Overwriteway isway "
-#~ "onnay-erozay.  Otherwiseway,\n"
-#~ "  ethay aluevay isway otnay angedchay."
-
-#~ msgid ""
-#~ "Adds or changes the environment.  Name-value must be a string of\n"
-#~ "  the form \"name=value\".  If the name does not exist, it is added.\n"
-#~ "  If name does exist, the value is updated to the given value."
-#~ msgstr ""
-#~ "Addsway orway angeschay ethay environmentway.  Amenay-aluevay ustmay ebay "
-#~ "away ingstray ofway\n"
-#~ "  ethay ormfay \"amenay=aluevay\".  Ifway ethay amenay oesday otnay "
-#~ "existway, itway isway addedway.\n"
-#~ "  Ifway amenay oesday existway, ethay aluevay isway updatedway otay ethay "
-#~ "ivengay aluevay."
-
-#~ msgid "Removes the variable Name from the environment"
-#~ msgstr "Emovesray ethay ariablevay Amenay omfray ethay environmentway"
-
-#~ msgid ""
 #~ "Unix-link creates a hard link from the file with name1 to the\n"
 #~ "   file with name2."
 #~ msgstr ""


=====================================
src/i18n/locale/en at piglatin/LC_MESSAGES/cmucl-unix.po
=====================================
--- a/src/i18n/locale/en at piglatin/LC_MESSAGES/cmucl-unix.po
+++ b/src/i18n/locale/en at piglatin/LC_MESSAGES/cmucl-unix.po
@@ -226,6 +226,27 @@ msgstr ""
 "  _N"
 
 #: src/code/unix.lisp
+#, fuzzy
+msgid ""
+"UNIX-LSEEK accepts a file descriptor and moves the file pointer ahead\n"
+"   a certain OFFSET for that file.  WHENCE can be any of the following:\n"
+"\n"
+"   l_set        Set the file pointer.\n"
+"   l_incr       Increment the file pointer.\n"
+"   l_xtnd       Extend the file size.\n"
+"  "
+msgstr ""
+"Unixway-seeklay acceptsway away ilefay escriptorday andway ovesmay ethay "
+"ilefay ointerpay aheadway\n"
+"   away ertaincay offsetway orfay atthay ilefay.  Encewhay ancay ebay anyway "
+"ofway ethay ollowingfay:\n"
+"\n"
+"   l_etsay        Etsay ethay ilefay ointerpay.\n"
+"   l_incrway       Incrementway ethay ilefay ointerpay.\n"
+"   l_tndxay       Extendway ethay ilefay izesay.\n"
+"  _N"
+
+#: src/code/unix.lisp
 msgid ""
 "Unix-mkdir creates a new directory with the specified name and mode.\n"
 "   (Same as those for unix-chmod.)  It returns T upon success, otherwise\n"
@@ -292,6 +313,10 @@ msgid "Synchronous writes (on ext2)"
 msgstr "Ynchronoussay iteswray (onway extway2)"
 
 #: src/code/unix.lisp
+msgid "Asynchronous I/O"
+msgstr ""
+
+#: src/code/unix.lisp
 msgid ""
 "Unix-open opens the file whose pathname is specified by path\n"
 "   for reading and/or writing as specified by the flags argument.\n"
@@ -371,6 +396,24 @@ msgstr ""
 "   andway anway errorway umbernay areway eturnedray."
 
 #: src/code/unix.lisp
+msgid ""
+"Unix-dup2 duplicates an existing file descriptor just as unix-dup\n"
+"   does only the new value of the duplicate descriptor may be requested\n"
+"   through the second argument.  If a file already exists with the\n"
+"   requested descriptor number, it will be closed and the number\n"
+"   assigned to the duplicate."
+msgstr ""
+"Unixway-upday2 uplicatesday anway existingway ilefay escriptorday ustjay "
+"asway unixway-upday\n"
+"   oesday onlyway ethay ewnay aluevay ofway ethay uplicateday escriptorday "
+"aymay ebay equestedray\n"
+"   roughthay ethay econdsay argumentway.  Ifway away ilefay alreadyway "
+"existsway ithway ethay\n"
+"   equestedray escriptorday umbernay, itway illway ebay osedclay andway "
+"ethay umbernay\n"
+"   assignedway otay ethay uplicateday."
+
+#: src/code/unix.lisp
 msgid "Duplicate a file descriptor"
 msgstr "Uplicateday away ilefay escriptorday"
 
@@ -515,6 +558,22 @@ msgstr ""
 "   umbernay ifway anway errorway occuredway."
 
 #: src/code/unix.lisp
+#, fuzzy
+msgid ""
+"UNIX-READ attempts to read from the file described by fd into\n"
+"   the buffer buf until it is full.  Len is the length of the buffer.\n"
+"   The number of bytes actually read is returned or NIL and an error\n"
+"   number if an error occured."
+msgstr ""
+"Unixway-eadray attemptsway otay eadray omfray ethay ilefay escribedday ybay "
+"dfay intoway\n"
+"   ethay ufferbay ufbay untilway itway isway ullfay.  Enlay isway ethay "
+"engthlay ofway ethay ufferbay.\n"
+"   Ethay umbernay ofway ytesbay actuallyway eadray isway eturnedray orway "
+"NIL andway anway errorway\n"
+"   umbernay ifway anway errorway occuredway."
+
+#: src/code/unix.lisp
 msgid ""
 "Unix-readlink invokes the readlink system call on the file name\n"
 "  specified by the simple string path.  It returns up to two values:\n"
@@ -562,6 +621,14 @@ msgstr ""
 
 #: src/code/unix.lisp
 msgid ""
+"Define an ioctl command. If the optional ARG and PARM-TYPE are given\n"
+"  then ioctl argument size and direction are included as for ioctls defined\n"
+"  by _IO, _IOR, _IOW, or _IOWR. If DEV is a character then the ioctl type\n"
+"  is the characters code, else DEV may be an integer giving the type."
+msgstr ""
+
+#: src/code/unix.lisp
+msgid ""
 "Unix-ioctl performs a variety of operations on open i/o\n"
 "   descriptors.  See the UNIX Programmer's Manual for more\n"
 "   information."
@@ -698,6 +765,40 @@ msgstr ""
 "   isway eturnedray ifway ethay allcay ailsfay."
 
 #: src/code/unix.lisp
+msgid "These bits determine file type."
+msgstr ""
+
+#: src/code/unix.lisp
+#, fuzzy
+msgid "Directory"
+msgstr "Isway away irectoryday"
+
+#: src/code/unix.lisp
+msgid "Character device"
+msgstr ""
+
+#: src/code/unix.lisp
+msgid "FIFO"
+msgstr ""
+
+#: src/code/unix.lisp
+#, fuzzy
+msgid "Block device"
+msgstr "Ockblay eviceday equiredray"
+
+#: src/code/unix.lisp
+msgid "Regular file"
+msgstr ""
+
+#: src/code/unix.lisp
+msgid "Symbolic link."
+msgstr ""
+
+#: src/code/unix.lisp
+msgid "Socket."
+msgstr ""
+
+#: src/code/unix.lisp
 msgid "Returns either :file, :directory, :link, :special, or NIL."
 msgstr ""
 "Eturnsray eitherway :ilefay, :irectoryday, :inklay, :ecialspay, orway NIL."
@@ -1648,23 +1749,6 @@ msgstr ""
 #~ "   oneway imetay.)"
 
 #~ msgid ""
-#~ "Unix-dup2 duplicates an existing file descriptor just as unix-dup\n"
-#~ "   does only the new value of the duplicate descriptor may be requested\n"
-#~ "   through the second argument.  If a file already exists with the\n"
-#~ "   requested descriptor number, it will be closed and the number\n"
-#~ "   assigned to the duplicate."
-#~ msgstr ""
-#~ "Unixway-upday2 uplicatesday anway existingway ilefay escriptorday ustjay "
-#~ "asway unixway-upday\n"
-#~ "   oesday onlyway ethay ewnay aluevay ofway ethay uplicateday "
-#~ "escriptorday aymay ebay equestedray\n"
-#~ "   roughthay ethay econdsay argumentway.  Ifway away ilefay alreadyway "
-#~ "existsway ithway ethay\n"
-#~ "   equestedray escriptorday umbernay, itway illway ebay osedclay andway "
-#~ "ethay umbernay\n"
-#~ "   assignedway otay ethay uplicateday."
-
-#~ msgid ""
 #~ "Unix-link creates a hard link from the file with name1 to the\n"
 #~ "   file with name2."
 #~ msgstr ""


=====================================
src/i18n/locale/en at piglatin/LC_MESSAGES/cmucl.po
=====================================
--- a/src/i18n/locale/en at piglatin/LC_MESSAGES/cmucl.po
+++ b/src/i18n/locale/en at piglatin/LC_MESSAGES/cmucl.po
@@ -2355,10 +2355,9 @@ msgstr "Imensionday isway otnay away onnay-egativenay ixnumfay: ~S"
 #: src/pcl/env.lisp src/pcl/fixup.lisp src/pcl/methods.lisp src/pcl/cpl.lisp
 #: src/pcl/seal.lisp src/pcl/dfun.lisp
 #: src/pcl/method-slot-access-optimization.lisp src/pcl/boot.lisp
-#: src/pcl/dlisp.lisp src/pcl/cache.lisp src/pcl/defclass.lisp
-#: src/pcl/low.lisp src/compiler/disassem.lisp src/code/pathname.lisp
-#: src/code/pprint-loop.lisp src/code/pprint.lisp src/code/bignum.lisp
-#: src/code/alieneval.lisp
+#: src/pcl/dlisp.lisp src/pcl/cache.lisp src/pcl/defclass.lisp src/pcl/low.lisp
+#: src/compiler/disassem.lisp src/code/pathname.lisp src/code/pprint-loop.lisp
+#: src/code/pprint.lisp src/code/bignum.lisp src/code/alieneval.lisp
 msgid "Required argument missing"
 msgstr "Equiredray argumentway issingmay"
 
@@ -6738,6 +6737,85 @@ msgid "Unknown float trap kind: ~S."
 msgstr "Unknownway oatflay aptray indkay: ~S."
 
 #: src/code/float-trap.lisp
+#, fuzzy
+msgid ""
+"Encode the floating-point modes according to the give options and the\n"
+"  specified mode, Floating-Point-Modes.  The resulting new mode is\n"
+"  returned.  If a keyword is not supplied, then the current value is\n"
+"  preserved.  Possible keywords:\n"
+"\n"
+"   :TRAPS\n"
+"       A list of the exception conditions that should cause traps.  "
+"Possible\n"
+"       exceptions are :UNDERFLOW, :OVERFLOW, :INEXACT, :INVALID,\n"
+"       :DIVIDE-BY-ZERO, and on the X86 :DENORMALIZED-OPERAND. Initially\n"
+"       all traps except :INEXACT are enabled.\n"
+"\n"
+"   :ROUNDING-MODE\n"
+"       The rounding mode to use when the result is not exact.  Possible "
+"values\n"
+"       are :NEAREST, :POSITIVE-INFINITY, :NEGATIVE-INFINITY and :ZERO.\n"
+"       Initially, the rounding mode is :NEAREST.\n"
+"\n"
+"   :CURRENT-EXCEPTIONS\n"
+"   :ACCRUED-EXCEPTIONS\n"
+"       These arguments allow setting of the exception flags.  The main use "
+"is\n"
+"       setting the accrued exceptions to NIL to clear them.\n"
+"\n"
+"   :FAST-MODE\n"
+"       Set the hardware's \"fast mode\" flag, if any.  When set, IEEE\n"
+"       conformance or debuggability may be impaired.  Some machines may not\n"
+"       have this feature, in which case the value is always NIL.\n"
+"\n"
+"   GET-FLOATING-POINT-MODES may be used to find the floating point modes\n"
+"   currently in effect."
+msgstr ""
+"Isthay unctionfay etssay optionsway ontrollingcay ethay oatingflay-ointpay "
+"ardwarehay.  Ifway away\n"
+"  eywordkay isway otnay uppliedsay, enthay ethay urrentcay aluevay isway "
+"eservedpray.  Ossiblepay\n"
+"  eywordskay:\n"
+"\n"
+"   :TRAPS\n"
+"       Away istlay ofway ethay exceptionway onditionscay atthay ouldshay "
+"ausecay apstray.  Ossiblepay\n"
+"       exceptionsway areway :UNDERFLOW, :OVERFLOW, :INEXACT, :INVALID,\n"
+"       :DIVIDE-BY-ZERO, andway onway ethay X86 :DENORMALIZED-OPERAND. "
+"Initiallyway\n"
+"       allway apstray exceptway :INEXACT areway enabledway.\n"
+"\n"
+"   :ROUNDING-MODE\n"
+"       Ethay oundingray odemay otay useway enwhay ethay esultray isway otnay "
+"exactway.  Ossiblepay aluesvay\n"
+"       areway :NEAREST, :POSITIVE-INFINITY, :NEGATIVE-INFINITY andway :"
+"ZERO.\n"
+"       Initiallyway, ethay oundingray odemay isway :NEAREST.\n"
+"\n"
+"   :CURRENT-EXCEPTIONS\n"
+"   :ACCRUED-EXCEPTIONS\n"
+"       Esethay argumentsway allowway ettingsay ofway ethay exceptionway "
+"agsflay.  Ethay ainmay useway isway\n"
+"       ettingsay ethay accruedway exceptionsway otay NIL otay earclay "
+"emthay.\n"
+"\n"
+"   :FAST-MODE\n"
+"       Etsay ethay ardwarehay's \"astfay odemay\" agflay, ifway anyway.  "
+"Enwhay etsay, IEEE\n"
+"       onformancecay orway ebuggabilityday aymay ebay impairedway.  Omesay "
+"achinesmay aymay otnay\n"
+"       avehay isthay eaturefay, inway ichwhay asecay ethay aluevay isway "
+"alwaysway NIL.\n"
+"\n"
+"   GET-FLOATING-POINT-MODES aymay ebay usedway otay indfay ethay oatingflay "
+"ointpay odesmay\n"
+"   urrentlycay inway effectway."
+
+#: src/code/float-trap.lisp
+msgid "Unknown rounding mode: ~S."
+msgstr "Unknownway oundingray odemay: ~S."
+
+#: src/code/float-trap.lisp
 msgid ""
 "This function sets options controlling the floating-point hardware.  If a\n"
 "  keyword is not supplied, then the current value is preserved.  Possible\n"
@@ -6811,8 +6889,23 @@ msgstr ""
 "   urrentlycay inway effectway."
 
 #: src/code/float-trap.lisp
-msgid "Unknown rounding mode: ~S."
-msgstr "Unknownway oundingray odemay: ~S."
+#, fuzzy
+msgid ""
+"This function returns a list representing the state of the floating point\n"
+"  modes given in Modes.  The list is in the same format as the keyword "
+"arguments to\n"
+"  SET-FLOATING-POINT-MODES."
+msgstr ""
+"Isthay unctionfay eturnsray away istlay epresentingray ethay tatesay ofway "
+"ethay oatingflay ointpay\n"
+"  odesmay.  Ethay istlay isway inway ethay amesay ormatfay asway ethay "
+"eywordkay argumentsway otay\n"
+"  SET-FLOATING-POINT-MODES, i.e. \n"
+"      (applyway #'etsay-oatingflay-ointpay-odesmay (etgay-oatingflay-ointpay-"
+"odesmay))\n"
+"\n"
+"  etssay ethay oatingflay ointpay odesmay otay eirthay urrentcay aluesvay "
+"(andway usthay isway away onay-opway)."
 
 #: src/code/float-trap.lisp
 msgid ""
@@ -6871,6 +6964,27 @@ msgstr ""
 "odybay otay upportsay\n"
 "  eirthay estingtay ithinway, andway estoredray onway exitway."
 
+#: src/code/float-trap.lisp
+#, fuzzy
+msgid ""
+"Execute BODY with the floating point exceptions listed in TRAPS\n"
+"  enabled.  TRAPS should be a list of possible exceptions which\n"
+"  includes :UNDERFLOW, :OVERFLOW, :INEXACT, :INVALID and\n"
+"  :DIVIDE-BY-ZERO and on the X86 :DENORMALIZED-OPERAND. The respective\n"
+"  accrued exceptions are cleared at the start of the body to support\n"
+"  their testing within, and restored on exit."
+msgstr ""
+"Executeway BODY ithway ethay oatingflay ointpay exceptionsway istedlay inway "
+"TRAPS\n"
+"  askedmay (isabledday).  TRAPS ouldshay ebay away istlay ofway ossiblepay "
+"exceptionsway\n"
+"  ichwhay includesway :UNDERFLOW, :OVERFLOW, :INEXACT, :INVALID andway\n"
+"  :DIVIDE-BY-ZERO andway onway ethay X86 :DENORMALIZED-OPERAND. Ethay "
+"espectiveray\n"
+"  accruedway exceptionsway areway earedclay atway ethay tartsay ofway ethay "
+"odybay otay upportsay\n"
+"  eirthay estingtay ithinway, andway estoredray onway exitway."
+
 #: src/code/float.lisp
 msgid "Return true if the float X is denormalized."
 msgstr "Eturnray uetray ifway ethay oatflay X isway enormalizedday."
@@ -8617,10 +8731,12 @@ msgstr ""
 "  ebuggerday."
 
 #: src/code/commandline.lisp
+#, fuzzy
 msgid ""
 "Specifies the number of megabytes that should be allocated to the\n"
-"  heap.  If not specified, a platform-specific default is used.  The\n"
-"  actual maximum allowed heap size is platform-specific."
+"  heap.  If not specified, a platform-specific default is used.  If 0,\n"
+"  the platform-specific maximum heap size is used.  The actual maximum\n"
+"  allowed heap size is platform-specific."
 msgstr ""
 "Ecifiesspay ethay umbernay ofway egabytesmay atthay ouldshay ebay "
 "allocatedway otay ethay\n"
@@ -9498,7 +9614,10 @@ msgstr ""
 "  ightmay otnay ebay."
 
 #: src/code/save.lisp
-msgid "An alist mapping environment variables (as keywords) to either values"
+#, fuzzy
+msgid ""
+"An alist mapping each environment variable (as a keyword) to its\n"
+"  value."
 msgstr ""
 "Anway alistway appingmay environmentway ariablesvay (asway eywordskay) otay "
 "eitherway aluesvay"
@@ -11715,8 +11834,11 @@ msgid "The package named ~S doesn't exist."
 msgstr "Ethay ackagepay amednay ~S oesnday't existway."
 
 #: src/code/package.lisp
-msgid "Changes the name and nicknames for a package."
-msgstr "Angeschay ethay amenay andway icknamesnay orfay away ackagepay."
+msgid ""
+"Replaces the name and nicknames of Package. The old name and all of\n"
+"  the old nicknames of Package are eliminated and are replaced by\n"
+"  New-Name and New-Nicknames."
+msgstr ""
 
 #: src/code/package.lisp
 msgid "A package named ~S already exists."
@@ -13070,14 +13192,18 @@ msgstr ""
 "  ethay inverseway ofway Ingstray-Encodeway."
 
 #: src/code/extfmts.lisp
+#, fuzzy
 msgid ""
 "Change the external format of the standard streams to Terminal.\n"
 "  The standard streams are sys::*stdin*, sys::*stdout*, and\n"
 "  sys::*stderr*, which are normally the input and/or output streams\n"
 "  for *standard-input* and *standard-output*.  Also sets sys::*tty*\n"
-"  (normally *terminal-io* to the given external format.  If the\n"
-"  optional argument Filenames is gvien, then the filename encoding is\n"
-"  set to the specified format."
+"  (normally *terminal-io* to the given external format.  The value of\n"
+"  *default-external-format* is not changed.\n"
+"\n"
+"  If the optional argument Filenames is given, then the filename\n"
+"  encoding is set to the specified format, if it has not already been\n"
+"  specified previously."
 msgstr ""
 "Angechay ethay externalway ormatfay ofway ethay tandardsay eamsstray otay "
 "Erminaltay.\n"
@@ -18615,6 +18741,7 @@ msgid "Could not UNIX:UNIX-DUP ~D: ~A"
 msgstr "Ouldcay otnay UNIX:UNIX-DUP ~D: ~Away"
 
 #: src/code/run-program.lisp
+#, fuzzy
 msgid ""
 "RUN-PROGRAM creates a new process and runs the unix program in the\n"
 "   file specified by the simple-string PROGRAM.  ARGS are the standard\n"
@@ -18626,8 +18753,9 @@ msgid ""
 "\n"
 "   The keyword arguments have the following meanings:\n"
 "     :env -\n"
-"        An A-LIST mapping keyword environment variables to simple-string\n"
-"\tvalues.\n"
+"        An A-LIST mapping keyword environment variables to\n"
+"\tsimple-string values.  This is the shell environment for\n"
+"\tProgram.  Defaults to *environment-list*.\n"
 "     :wait -\n"
 "        If non-NIL (default), wait until the created process finishes.  If\n"
 "        NIL, continue running Lisp until the program finishes.\n"
@@ -30787,6 +30915,9 @@ msgstr ""
 "eplacedray ybay ethay\n"
 "Unicodeway eplacementray aracterchay."
 
+#~ msgid "Changes the name and nicknames for a package."
+#~ msgstr "Angeschay ethay amenay andway icknamesnay orfay away ackagepay."
+
 #~ msgid "No default clause allowed in ~S: ~S"
 #~ msgstr "Onay efaultday auseclay allowedway inway ~S: ~S"
 


=====================================
src/i18n/locale/ko/LC_MESSAGES/cmucl-unix-glibc2.po
=====================================
--- a/src/i18n/locale/ko/LC_MESSAGES/cmucl-unix-glibc2.po
+++ b/src/i18n/locale/ko/LC_MESSAGES/cmucl-unix-glibc2.po
@@ -1087,3 +1087,49 @@ msgstr ""
 #: src/code/unix-glibc2.lisp
 msgid "Get terminal output speed."
 msgstr ""
+
+#: src/code/unix-glibc2.lisp
+msgid ""
+"Get the value of the environment variable named Name.  If no such\n"
+"  variable exists, Nil is returned."
+msgstr ""
+
+#: src/code/unix-glibc2.lisp
+msgid ""
+"Adds the environment variable named Name to the environment with\n"
+"  the given Value if Name does not already exist. If Name does exist,\n"
+"  the value is changed to Value if Overwrite is non-zero.  Otherwise,\n"
+"  the value is not changed."
+msgstr ""
+
+#: src/code/unix-glibc2.lisp
+msgid ""
+"Adds or changes the environment.  Name-value must be a string of\n"
+"  the form \"name=value\".  If the name does not exist, it is added.\n"
+"  If name does exist, the value is updated to the given value."
+msgstr ""
+
+#: src/code/unix-glibc2.lisp
+msgid "Removes the variable Name from the environment"
+msgstr ""
+
+#: src/code/unix-glibc2.lisp
+msgid ""
+"Executes the Unix execve system call.  If the system call suceeds, lisp\n"
+"   will no longer be running in this process.  If the system call fails "
+"this\n"
+"   function returns two values: NIL and an error code.  Arg-list should be "
+"a\n"
+"   list of simple-strings which are passed as arguments to the exec'ed "
+"program.\n"
+"   Environment should be an a-list mapping symbols to simple-strings which "
+"this\n"
+"   function bashes together to form the environment for the exec'ed program."
+msgstr ""
+
+#: src/code/unix-glibc2.lisp
+msgid ""
+"Executes the unix fork system call.  Returns 0 in the child and the pid\n"
+"   of the child in the parent if it works, or NIL and an error number if it\n"
+"   doesn't work."
+msgstr ""


=====================================
src/i18n/locale/ko/LC_MESSAGES/cmucl-unix.po
=====================================
--- a/src/i18n/locale/ko/LC_MESSAGES/cmucl-unix.po
+++ b/src/i18n/locale/ko/LC_MESSAGES/cmucl-unix.po
@@ -166,6 +166,17 @@ msgstr ""
 
 #: src/code/unix.lisp
 msgid ""
+"UNIX-LSEEK accepts a file descriptor and moves the file pointer ahead\n"
+"   a certain OFFSET for that file.  WHENCE can be any of the following:\n"
+"\n"
+"   l_set        Set the file pointer.\n"
+"   l_incr       Increment the file pointer.\n"
+"   l_xtnd       Extend the file size.\n"
+"  "
+msgstr ""
+
+#: src/code/unix.lisp
+msgid ""
 "Unix-mkdir creates a new directory with the specified name and mode.\n"
 "   (Same as those for unix-chmod.)  It returns T upon success, otherwise\n"
 "   NIL and an error number."
@@ -222,6 +233,10 @@ msgid "Synchronous writes (on ext2)"
 msgstr ""
 
 #: src/code/unix.lisp
+msgid "Asynchronous I/O"
+msgstr ""
+
+#: src/code/unix.lisp
 msgid ""
 "Unix-open opens the file whose pathname is specified by path\n"
 "   for reading and/or writing as specified by the flags argument.\n"
@@ -264,6 +279,15 @@ msgid ""
 msgstr ""
 
 #: src/code/unix.lisp
+msgid ""
+"Unix-dup2 duplicates an existing file descriptor just as unix-dup\n"
+"   does only the new value of the duplicate descriptor may be requested\n"
+"   through the second argument.  If a file already exists with the\n"
+"   requested descriptor number, it will be closed and the number\n"
+"   assigned to the duplicate."
+msgstr ""
+
+#: src/code/unix.lisp
 msgid "Duplicate a file descriptor"
 msgstr ""
 
@@ -371,6 +395,14 @@ msgstr ""
 
 #: src/code/unix.lisp
 msgid ""
+"UNIX-READ attempts to read from the file described by fd into\n"
+"   the buffer buf until it is full.  Len is the length of the buffer.\n"
+"   The number of bytes actually read is returned or NIL and an error\n"
+"   number if an error occured."
+msgstr ""
+
+#: src/code/unix.lisp
+msgid ""
 "Unix-readlink invokes the readlink system call on the file name\n"
 "  specified by the simple string path.  It returns up to two values:\n"
 "  the contents of the symbolic link if the call is successful, or\n"
@@ -398,6 +430,14 @@ msgstr ""
 
 #: src/code/unix.lisp
 msgid ""
+"Define an ioctl command. If the optional ARG and PARM-TYPE are given\n"
+"  then ioctl argument size and direction are included as for ioctls defined\n"
+"  by _IO, _IOR, _IOW, or _IOWR. If DEV is a character then the ioctl type\n"
+"  is the characters code, else DEV may be an integer giving the type."
+msgstr ""
+
+#: src/code/unix.lisp
+msgid ""
 "Unix-ioctl performs a variety of operations on open i/o\n"
 "   descriptors.  See the UNIX Programmer's Manual for more\n"
 "   information."
@@ -491,6 +531,38 @@ msgid ""
 msgstr ""
 
 #: src/code/unix.lisp
+msgid "These bits determine file type."
+msgstr ""
+
+#: src/code/unix.lisp
+msgid "Directory"
+msgstr ""
+
+#: src/code/unix.lisp
+msgid "Character device"
+msgstr ""
+
+#: src/code/unix.lisp
+msgid "FIFO"
+msgstr ""
+
+#: src/code/unix.lisp
+msgid "Block device"
+msgstr ""
+
+#: src/code/unix.lisp
+msgid "Regular file"
+msgstr ""
+
+#: src/code/unix.lisp
+msgid "Symbolic link."
+msgstr ""
+
+#: src/code/unix.lisp
+msgid "Socket."
+msgstr ""
+
+#: src/code/unix.lisp
 msgid "Returns either :file, :directory, :link, :special, or NIL."
 msgstr ""
 


=====================================
src/i18n/locale/ko/LC_MESSAGES/cmucl.po
=====================================
--- a/src/i18n/locale/ko/LC_MESSAGES/cmucl.po
+++ b/src/i18n/locale/ko/LC_MESSAGES/cmucl.po
@@ -1748,10 +1748,9 @@ msgstr ""
 #: src/pcl/env.lisp src/pcl/fixup.lisp src/pcl/methods.lisp src/pcl/cpl.lisp
 #: src/pcl/seal.lisp src/pcl/dfun.lisp
 #: src/pcl/method-slot-access-optimization.lisp src/pcl/boot.lisp
-#: src/pcl/dlisp.lisp src/pcl/cache.lisp src/pcl/defclass.lisp
-#: src/pcl/low.lisp src/compiler/disassem.lisp src/code/pathname.lisp
-#: src/code/pprint-loop.lisp src/code/pprint.lisp src/code/bignum.lisp
-#: src/code/alieneval.lisp
+#: src/pcl/dlisp.lisp src/pcl/cache.lisp src/pcl/defclass.lisp src/pcl/low.lisp
+#: src/compiler/disassem.lisp src/code/pathname.lisp src/code/pprint-loop.lisp
+#: src/code/pprint.lisp src/code/bignum.lisp src/code/alieneval.lisp
 msgid "Required argument missing"
 msgstr ""
 
@@ -4726,6 +4725,45 @@ msgstr ""
 
 #: src/code/float-trap.lisp
 msgid ""
+"Encode the floating-point modes according to the give options and the\n"
+"  specified mode, Floating-Point-Modes.  The resulting new mode is\n"
+"  returned.  If a keyword is not supplied, then the current value is\n"
+"  preserved.  Possible keywords:\n"
+"\n"
+"   :TRAPS\n"
+"       A list of the exception conditions that should cause traps.  "
+"Possible\n"
+"       exceptions are :UNDERFLOW, :OVERFLOW, :INEXACT, :INVALID,\n"
+"       :DIVIDE-BY-ZERO, and on the X86 :DENORMALIZED-OPERAND. Initially\n"
+"       all traps except :INEXACT are enabled.\n"
+"\n"
+"   :ROUNDING-MODE\n"
+"       The rounding mode to use when the result is not exact.  Possible "
+"values\n"
+"       are :NEAREST, :POSITIVE-INFINITY, :NEGATIVE-INFINITY and :ZERO.\n"
+"       Initially, the rounding mode is :NEAREST.\n"
+"\n"
+"   :CURRENT-EXCEPTIONS\n"
+"   :ACCRUED-EXCEPTIONS\n"
+"       These arguments allow setting of the exception flags.  The main use "
+"is\n"
+"       setting the accrued exceptions to NIL to clear them.\n"
+"\n"
+"   :FAST-MODE\n"
+"       Set the hardware's \"fast mode\" flag, if any.  When set, IEEE\n"
+"       conformance or debuggability may be impaired.  Some machines may not\n"
+"       have this feature, in which case the value is always NIL.\n"
+"\n"
+"   GET-FLOATING-POINT-MODES may be used to find the floating point modes\n"
+"   currently in effect."
+msgstr ""
+
+#: src/code/float-trap.lisp
+msgid "Unknown rounding mode: ~S."
+msgstr ""
+
+#: src/code/float-trap.lisp
+msgid ""
 "This function sets options controlling the floating-point hardware.  If a\n"
 "  keyword is not supplied, then the current value is preserved.  Possible\n"
 "  keywords:\n"
@@ -4759,7 +4797,11 @@ msgid ""
 msgstr ""
 
 #: src/code/float-trap.lisp
-msgid "Unknown rounding mode: ~S."
+msgid ""
+"This function returns a list representing the state of the floating point\n"
+"  modes given in Modes.  The list is in the same format as the keyword "
+"arguments to\n"
+"  SET-FLOATING-POINT-MODES."
 msgstr ""
 
 #: src/code/float-trap.lisp
@@ -4794,6 +4836,16 @@ msgid ""
 "  their testing within, and restored on exit."
 msgstr ""
 
+#: src/code/float-trap.lisp
+msgid ""
+"Execute BODY with the floating point exceptions listed in TRAPS\n"
+"  enabled.  TRAPS should be a list of possible exceptions which\n"
+"  includes :UNDERFLOW, :OVERFLOW, :INEXACT, :INVALID and\n"
+"  :DIVIDE-BY-ZERO and on the X86 :DENORMALIZED-OPERAND. The respective\n"
+"  accrued exceptions are cleared at the start of the body to support\n"
+"  their testing within, and restored on exit."
+msgstr ""
+
 #: src/code/float.lisp
 msgid "Return true if the float X is denormalized."
 msgstr ""
@@ -6008,8 +6060,9 @@ msgstr ""
 #: src/code/commandline.lisp
 msgid ""
 "Specifies the number of megabytes that should be allocated to the\n"
-"  heap.  If not specified, a platform-specific default is used.  The\n"
-"  actual maximum allowed heap size is platform-specific."
+"  heap.  If not specified, a platform-specific default is used.  If 0,\n"
+"  the platform-specific maximum heap size is used.  The actual maximum\n"
+"  allowed heap size is platform-specific."
 msgstr ""
 
 #: src/code/commandline.lisp
@@ -6619,7 +6672,9 @@ msgid ""
 msgstr ""
 
 #: src/code/save.lisp
-msgid "An alist mapping environment variables (as keywords) to either values"
+msgid ""
+"An alist mapping each environment variable (as a keyword) to its\n"
+"  value."
 msgstr ""
 
 #: src/code/save.lisp
@@ -8138,7 +8193,10 @@ msgid "The package named ~S doesn't exist."
 msgstr ""
 
 #: src/code/package.lisp
-msgid "Changes the name and nicknames for a package."
+msgid ""
+"Replaces the name and nicknames of Package. The old name and all of\n"
+"  the old nicknames of Package are eliminated and are replaced by\n"
+"  New-Name and New-Nicknames."
 msgstr ""
 
 #: src/code/package.lisp
@@ -9135,9 +9193,12 @@ msgid ""
 "  The standard streams are sys::*stdin*, sys::*stdout*, and\n"
 "  sys::*stderr*, which are normally the input and/or output streams\n"
 "  for *standard-input* and *standard-output*.  Also sets sys::*tty*\n"
-"  (normally *terminal-io* to the given external format.  If the\n"
-"  optional argument Filenames is gvien, then the filename encoding is\n"
-"  set to the specified format."
+"  (normally *terminal-io* to the given external format.  The value of\n"
+"  *default-external-format* is not changed.\n"
+"\n"
+"  If the optional argument Filenames is given, then the filename\n"
+"  encoding is set to the specified format, if it has not already been\n"
+"  specified previously."
 msgstr ""
 
 #: src/code/extfmts.lisp
@@ -13088,8 +13149,9 @@ msgid ""
 "\n"
 "   The keyword arguments have the following meanings:\n"
 "     :env -\n"
-"        An A-LIST mapping keyword environment variables to simple-string\n"
-"\tvalues.\n"
+"        An A-LIST mapping keyword environment variables to\n"
+"\tsimple-string values.  This is the shell environment for\n"
+"\tProgram.  Defaults to *environment-list*.\n"
 "     :wait -\n"
 "        If non-NIL (default), wait until the created process finishes.  If\n"
 "        NIL, continue running Lisp until the program finishes.\n"



View it on GitLab: https://gitlab.common-lisp.net/cmucl/cmucl/compare/040fbc1d73aef926967a0554265f40c7aaac71ad...c72b7e57d27ee0013bf33197327c297ada60911a
-------------- next part --------------
An HTML attachment was scrubbed...
URL: <https://mailman.common-lisp.net/pipermail/cmucl-cvs/attachments/20160521/884e500f/attachment-0001.html>


More information about the cmucl-cvs mailing list