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@piglatin/LC_MESSAGES/cmucl-unix-glibc2.po - src/i18n/locale/en@piglatin/LC_MESSAGES/cmucl-unix.po - src/i18n/locale/en@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@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"
View it on GitLab: https://gitlab.common-lisp.net/cmucl/cmucl/compare/040fbc1d73aef926967a05542...