Raymond Toy pushed to branch master
at cmucl / cmucl
Commits:
7 changed files:
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@piglatin/LC_MESSAGES/cmucl-unix-glibc2.po
--- a/src/i18n/locale/en@piglatin/LC_MESSAGES/cmucl-unix-glibc2.po
+++ b/src/i18n/locale/en@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@piglatin/LC_MESSAGES/cmucl-unix.po
--- a/src/i18n/locale/en@piglatin/LC_MESSAGES/cmucl-unix.po
+++ b/src/i18n/locale/en@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@piglatin/LC_MESSAGES/cmucl.po
--- a/src/i18n/locale/en@piglatin/LC_MESSAGES/cmucl.po
+++ b/src/i18n/locale/en@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"