Raymond Toy pushed to branch master at cmucl / cmucl

Commits:

14 changed files:

Changes:

  • .gitlab-ci.yml
    1 1 
     variables:
    2 2 
       download_url: "https://common-lisp.net/project/cmucl/downloads/snapshots/2023/04"
    3 3 
       version: "2023-04-x86"
    4 
    -  bootstrap: ""
    4 
    +  bootstrap: "-B boot-21e"
    5 5
    6 6 
     stages:
    7 7 
       - install

  • src/bootfiles/21d/boot-21e.lisp
    1 
    +;;;;
    2 
    +;;;; Boot file for changing the fasl file version numbers to 21e.
    3 
    +;;;;
    4 
    +
    5 
    +(in-package :c)
    6 
    +
    7 
    +(setf lisp::*enable-package-locked-errors* nil)
    8 
    +
    9 
    +;;;
    10 
    +;;; Note that BYTE-FASL-FILE-VERSION is a constant.
    11 
    +;;;
    12 
    +;;; (Be sure to change BYTE-FASL-FILE-VERSION in
    13 
    +;;; compiler/byte-comp.lisp to the correct value too!)
    14 
    +;;;
    15 
    +#-cmu21e
    16 
    +(setf (symbol-value 'byte-fasl-file-version)       #x21e)
    17 
    +#-cmu21e
    18 
    +(setf (backend-fasl-file-version *target-backend*) #x21e)
    19 
    +
    20 
    +;;;
    21 
    +;;; Don't check fasl versions in the compiling Lisp because we'll
    22 
    +;;; load files compiled with the new version numbers.
    23 
    +;;;
    24 
    +#-cmu21e
    25 
    +(setq lisp::*skip-fasl-file-version-check* t)
    26 
    +
    27 
    +;;;
    28 
    +;;; This is here because BYTE-FASL-FILE-VERSION is constant-folded in
    29 
    +;;; OPEN-FASL-FILE.  To make the new version number take effect, we
    30 
    +;;; have to redefine the function.
    31 
    +;;;
    32 
    +#-cmu21e
    33 
    +(defun open-fasl-file (name where &optional byte-p)
    34 
    +  (declare (type pathname name))
    35 
    +  (let* ((stream (open name :direction :output
    36 
    +			    :if-exists :new-version
    37 
    +			    :element-type '(unsigned-byte 8)
    38 
    +			    :class 'binary-text-stream))
    39 
    +	 (res (make-fasl-file :stream stream)))
    40 
    +    (multiple-value-bind
    41 
    +	(version f-vers f-imp)
    42 
    +	(if byte-p
    43 
    +	    (values "Byte code"
    44 
    +		    byte-fasl-file-version
    45 
    +		    (backend-byte-fasl-file-implementation *backend*))
    46 
    +	    (values (backend-version *backend*)
    47 
    +		    (backend-fasl-file-version *backend*)
    48 
    +		    (backend-fasl-file-implementation *backend*)))
    49 
    +      (format stream
    50 
    +	      "FASL FILE output from ~A.~@
    51 
    +	       Compiled ~A on ~A~@
    52 
    +	       Compiler ~A, Lisp ~A~@
    53 
    +	       Targeted for ~A, FASL version ~X~%"
    54 
    +	      where
    55 
    +	      (ext:format-universal-time nil (get-universal-time))
    56 
    +	      (machine-instance) compiler-version
    57 
    +	      (lisp-implementation-version)
    58 
    +	      version f-vers)
    59 
    +      ;;
    60 
    +      ;; Terminate header.
    61 
    +      (dump-byte 255 res)
    62 
    +      ;;
    63 
    +      ;; Specify code format.
    64 
    +      (dump-fop 'lisp::fop-long-code-format res)
    65 
    +      (dump-byte f-imp res)
    66 
    +      (dump-unsigned-32 f-vers res))
    67 
    +    res))
    68 
    +

  • src/compiler/byte-comp.lisp
    ... ... @@ -38,7 +38,7 @@
    38 38 
     ;; 0-9 followed by a single hex digit in the range a-f.  Then the
    39 39 
     ;; version looks like a decimal number followed by a minor release
    40 40 
     ;; letter of a to f.
    41 
    -(defconstant byte-fasl-file-version #x21d)
    41 
    +(defconstant byte-fasl-file-version #x21e)
    42 42
    43 43 
     (let* ((version-string (format nil "~X" byte-fasl-file-version)))
    44 44 
       ;; Add :cmu<n> to *features*

  • src/general-info/release-21e.md
    1 1 
     # CMUCL 21e
    2 2
    3 
    -## Work in progress
    4 
    -
    5 3 
     The CMUCL project is pleased to announce the release of CMUCL 21e.
    6 4 
     This is a major release which contains numerous enhancements and bug
    7 5 
     fixes from the 21d release.

  • src/i18n/locale/en@piglatin/LC_MESSAGES/cmucl-bsd-os.po
    ... ... @@ -16,24 +16,10 @@ msgstr ""
    16 16 
     "Content-Transfer-Encoding: 8bit\n"
    17 17 
     "Plural-Forms: nplurals=2; plural=(n != 1);\n"
    18 18
    19 
    -#: src/code/bsd-os.lisp
    20 
    -msgid "Version string for supporting software"
    21 
    -msgstr "Ersionvay ingstray orfay upportingsay oftwaresay"
    22 
    -
    23 
    -#: src/code/bsd-os.lisp
    24 
    -msgid "Returns a string describing version of the supporting software."
    25 
    -msgstr ""
    26 
    -"Eturnsray away ingstray escribingday ersionvay ofway ethay upportingsay "
    27 
    -"oftwaresay."
    28 
    -
    29 19 
     #: src/code/bsd-os.lisp
    30 20 
     msgid "Unix system call getrusage failed: ~A."
    31 21 
     msgstr "Unixway ystemsay allcay etrusagegay ailedfay: ~Away."
    32 22
    33 
    -#: src/code/bsd-os.lisp
    34 
    -msgid "Getpagesize failed: ~A"
    35 
    -msgstr "Etpagesizegay ailedfay: ~Away"
    36 
    -
    37 23 
     #: src/code/signal.lisp
    38 24 
     msgid "Emt instruction"
    39 25 
     msgstr "Emtway instructionway"
    ... ... @@ -41,3 +27,14 @@ msgstr "Emtway instructionway"
    41 27 
     #: src/code/signal.lisp
    42 28 
     msgid "Bad argument to system call"
    43 29 
     msgstr "Adbay argumentway otay ystemsay allcay"
    30 
    +
    31 
    +#~ msgid "Version string for supporting software"
    32 
    +#~ msgstr "Ersionvay ingstray orfay upportingsay oftwaresay"
    33 
    +
    34 
    +#~ msgid "Returns a string describing version of the supporting software."
    35 
    +#~ msgstr ""
    36 
    +#~ "Eturnsray away ingstray escribingday ersionvay ofway ethay upportingsay "
    37 
    +#~ "oftwaresay."
    38 
    +
    39 
    +#~ msgid "Getpagesize failed: ~A"
    40 
    +#~ msgstr "Etpagesizegay ailedfay: ~Away"

  • src/i18n/locale/en@piglatin/LC_MESSAGES/cmucl-linux-os.po
    ... ... @@ -16,16 +16,6 @@ msgstr ""
    16 16 
     "Content-Transfer-Encoding: 8bit\n"
    17 17 
     "Plural-Forms: nplurals=2; plural=(n != 1);\n"
    18 18
    19 
    -#: src/code/linux-os.lisp
    20 
    -msgid "Returns a string describing version of the supporting software."
    21 
    -msgstr ""
    22 
    -"Eturnsray away ingstray escribingday ersionvay ofway ethay upportingsay "
    23 
    -"oftwaresay."
    24 
    -
    25 
    -#: src/code/linux-os.lisp
    26 
    -msgid "Unix system call getrusage failed: ~A."
    27 
    -msgstr "Unixway ystemsay allcay etrusagegay ailedfay: ~Away."
    28 
    -
    29 19 
     #: src/code/linux-os.lisp
    30 20 
     msgid "Getpagesize failed: ~A"
    31 21 
     msgstr "Etpagesizegay ailedfay: ~Away"
    ... ... @@ -33,3 +23,11 @@ msgstr "Etpagesizegay ailedfay: ~Away"
    33 23 
     #: src/code/signal.lisp
    34 24 
     msgid "Stack fault on coprocessor"
    35 25 
     msgstr "Tacksay aultfay onway oprocessorcay"
    26 
    +
    27 
    +#~ msgid "Returns a string describing version of the supporting software."
    28 
    +#~ msgstr ""
    29 
    +#~ "Eturnsray away ingstray escribingday ersionvay ofway ethay upportingsay "
    30 
    +#~ "oftwaresay."
    31 
    +
    32 
    +#~ msgid "Unix system call getrusage failed: ~A."
    33 
    +#~ msgstr "Unixway ystemsay allcay etrusagegay ailedfay: ~Away."

  • src/i18n/locale/en@piglatin/LC_MESSAGES/cmucl-unix.po
    ... ... @@ -16,6 +16,15 @@ msgstr ""
    16 16 
     "Content-Transfer-Encoding: 8bit\n"
    17 17 
     "Plural-Forms: nplurals=2; plural=(n != 1);\n"
    18 18
    19 
    +#: src/code/unix.lisp
    20 
    +msgid ""
    21 
    +"The encoding to use for converting a namestring to a string that can\n"
    22 
    +"  be used by the operations system.  It must be a valid\n"
    23 
    +"  external-format name or :NULL.  :NULL means the string\n"
    24 
    +"  is passed as is to the operating system.  The operating system will\n"
    25 
    +"  get the low 8 bits of each UTF-16 code unit of the string."
    26 
    +msgstr ""
    27 
    +
    19 28 
     #: src/code/unix.lisp
    20 29 
     msgid "Syscall ~A failed: ~A"
    21 30 
     msgstr "Yscallsay ~Away ailedfay: ~Away"
    ... ... @@ -659,12 +668,6 @@ msgstr ""
    659 668 
     "ethay\n"
    660 669 
     "   urrentcay ocesspray."
    661 670
    662 
    -#: src/code/unix.lisp
    663 
    -msgid "Unix-getpagesize returns the number of bytes in a system page."
    664 
    -msgstr ""
    665 
    -"Unixway-etpagesizegay eturnsray ethay umbernay ofway ytesbay inway away "
    666 
    -"ystemsay agepay."
    667 
    -
    668 671 
     #: src/code/unix.lisp
    669 672 
     msgid "Unix-gethostname returns the name of the host machine as a string."
    670 673 
     msgstr ""
    ... ... @@ -700,34 +703,69 @@ msgstr "Izesay ofway ontrolcay aracterchay ectorvay."
    700 703 
     #: src/code/unix.lisp
    701 704 
     msgid ""
    702 705 
     "Unix-stat retrieves information about the specified\n"
    703 
    -"   file returning them in the form of multiple values.\n"
    704 
    -"   See the UNIX Programmer's Manual for a description\n"
    705 
    -"   of the values returned.  If the call fails, then NIL\n"
    706 
    -"   and an error number is returned instead."
    706 
    +"   file returning them in the form of multiple values.  If the call\n"
    707 
    +"   fails, then NIL and an error number is returned.  If the call\n"
    708 
    +"   succeeds, then T is returned in addition to the following values\n"
    709 
    +"   from the stat struct st:\n"
    710 
    +"\n"
    711 
    +"     st_dev        Device ID\n"
    712 
    +"     st_ino        File serial number\n"
    713 
    +"     st_mode       Mode of file\n"
    714 
    +"     st_nlink      Number of hard links to the file\n"
    715 
    +"     st_uid        User ID\n"
    716 
    +"     st_gid        Group ID\n"
    717 
    +"     st_rdev       Device ID (if file is character or block special)\n"
    718 
    +"     st_atime      Last data access time, in sec\n"
    719 
    +"     st_mtime      Last data modification time, in sec\n"
    720 
    +"     st_ctime      Last file status change time, in sec\n"
    721 
    +"     st_blksize    Preferred I/O block size\n"
    722 
    +"     st_blocks     Number of blocks allocated. (Block size is implementation "
    723 
    +"dependent.)\n"
    707 724 
     msgstr ""
    708 
    -"Unixway-tatsay etrievesray informationway aboutway ethay ecifiedspay\n"
    709 
    -"   ilefay eturningray emthay inway ethay ormfay ofway ultiplemay aluesvay.\n"
    710 
    -"   Eesay ethay UNIX Ogrammerpray's Anualmay orfay away escriptionday\n"
    711 
    -"   ofway ethay aluesvay eturnedray.  Ifway ethay allcay ailsfay, enthay NIL\n"
    712 
    -"   andway anway errorway umbernay isway eturnedray insteadway."
    713 725
    714 726 
     #: src/code/unix.lisp
    715 727 
     msgid ""
    716 
    -"Unix-lstat is similar to unix-stat except the specified\n"
    717 
    -"   file must be a symbolic link."
    728 
    +"Unix-fstat is similar to unix-stat except the file is specified\n"
    729 
    +"   by the file descriptor fd.  If the call fails, then NIL and an\n"
    730 
    +"   error number is returned.  If the call succeeds, then T is returned\n"
    731 
    +"   in addition to the following values from the stat struct st:\n"
    732 
    +"\n"
    733 
    +"     st_dev        Device ID\n"
    734 
    +"     st_ino        File serial number\n"
    735 
    +"     st_mode       Mode of file\n"
    736 
    +"     st_nlink      Number of hard links to the file\n"
    737 
    +"     st_uid        User ID\n"
    738 
    +"     st_gid        Group ID\n"
    739 
    +"     st_rdev       Device ID (if file is character or block special)\n"
    740 
    +"     st_atime      Last data access time, in sec\n"
    741 
    +"     st_mtime      Last data modification time, in sec\n"
    742 
    +"     st_ctime      Last file status change time, in sec\n"
    743 
    +"     st_blksize    Preferred I/O block size\n"
    744 
    +"     st_blocks     Number of blocks allocated. (Block size is implementation "
    745 
    +"dependent.)\n"
    718 746 
     msgstr ""
    719 
    -"Unixway-statlay isway imilarsay otay unixway-tatsay exceptway ethay "
    720 
    -"ecifiedspay\n"
    721 
    -"   ilefay ustmay ebay away ymbolicsay inklay."
    722 747
    723 748 
     #: src/code/unix.lisp
    724 749 
     msgid ""
    725 
    -"Unix-fstat is similar to unix-stat except the file is specified\n"
    726 
    -"   by the file descriptor fd."
    750 
    +"Unix-lstat is similar to unix-stat except the specified\n"
    751 
    +"   file must be a symbolic link.  If the call fails, then NIL and an\n"
    752 
    +"   error number is returned.  If the call succeeds, then T is returned\n"
    753 
    +"   in addition to the following values from the stat struct st:\n"
    754 
    +"\n"
    755 
    +"     st_dev        Device ID\n"
    756 
    +"     st_ino        File serial number\n"
    757 
    +"     st_mode       Mode of file\n"
    758 
    +"     st_nlink      Number of hard links to the file\n"
    759 
    +"     st_uid        User ID\n"
    760 
    +"     st_gid        Group ID\n"
    761 
    +"     st_rdev       Device ID (if file is character or block special)\n"
    762 
    +"     st_atime      Last data access time, in sec\n"
    763 
    +"     st_mtime      Last data modification time, in sec\n"
    764 
    +"     st_ctime      Last file status change time, in sec\n"
    765 
    +"     st_blksize    Preferred I/O block size\n"
    766 
    +"     st_blocks     Number of blocks allocated. (Block size is implementation "
    767 
    +"dependent.)\n"
    727 768 
     msgstr ""
    728 
    -"Unixway-statfay isway imilarsay otay unixway-tatsay exceptway ethay ilefay "
    729 
    -"isway ecifiedspay\n"
    730 
    -"   ybay ethay ilefay escriptorday dfay."
    731 769
    732 770 
     #: src/code/unix.lisp
    733 771 
     msgid "The calling process."
    ... ... @@ -1598,6 +1636,14 @@ msgstr ""
    1598 1636 
     "Eturnray away USER-INFO ucturestray orfay ethay userway identifiedway ybay "
    1599 1637 
     "UID, orway NIL ifway otnay oundfay."
    1600 1638
    1639 
    +#: src/code/unix.lisp
    1640 
    +msgid ""
    1641 
    +"Return a USER-INFO structure for the user identified by UID.  If\n"
    1642 
    +"  not found, NIL is returned with a second value indicating the cause\n"
    1643 
    +"  of the failure.  In particular, if the second value is 0 (or\n"
    1644 
    +"  ENONENT, ESRCH, EBADF, etc.), then the uid was not found."
    1645 
    +msgstr ""
    1646 
    +
    1601 1647 
     #: src/code/unix.lisp
    1602 1648 
     msgid ""
    1603 1649 
     "Unix-times returns information about the cpu time usage of the process\n"
    ... ... @@ -1686,6 +1732,57 @@ msgstr ""
    1686 1732 
     "andway anway errorway umbernay ifway itway\n"
    1687 1733 
     "   oesnday't orkway."
    1688 1734
    1735 
    +#: src/code/unix.lisp
    1736 
    +msgid "Call setlocale(3c) with fixed args.  Returns 0 on success."
    1737 
    +msgstr ""
    1738 
    +
    1739 
    +#: src/code/unix.lisp
    1740 
    +msgid ""
    1741 
    +"Get LC_MESSAGES from the current locale.  If we can't, return\n"
    1742 
    +"  NIL.  A call to UNIX-SETLOCALE must have been done previously before\n"
    1743 
    +"  calling this so that the correct locale is returned."
    1744 
    +msgstr ""
    1745 
    +
    1746 
    +#: src/code/unix.lisp
    1747 
    +msgid "Get the codeset from the locale"
    1748 
    +msgstr ""
    1749 
    +
    1750 
    +#~ msgid "Unix-getpagesize returns the number of bytes in a system page."
    1751 
    +#~ msgstr ""
    1752 
    +#~ "Unixway-etpagesizegay eturnsray ethay umbernay ofway ytesbay inway away "
    1753 
    +#~ "ystemsay agepay."
    1754 
    +
    1755 
    +#~ msgid ""
    1756 
    +#~ "Unix-stat retrieves information about the specified\n"
    1757 
    +#~ "   file returning them in the form of multiple values.\n"
    1758 
    +#~ "   See the UNIX Programmer's Manual for a description\n"
    1759 
    +#~ "   of the values returned.  If the call fails, then NIL\n"
    1760 
    +#~ "   and an error number is returned instead."
    1761 
    +#~ msgstr ""
    1762 
    +#~ "Unixway-tatsay etrievesray informationway aboutway ethay ecifiedspay\n"
    1763 
    +#~ "   ilefay eturningray emthay inway ethay ormfay ofway ultiplemay "
    1764 
    +#~ "aluesvay.\n"
    1765 
    +#~ "   Eesay ethay UNIX Ogrammerpray's Anualmay orfay away escriptionday\n"
    1766 
    +#~ "   ofway ethay aluesvay eturnedray.  Ifway ethay allcay ailsfay, enthay "
    1767 
    +#~ "NIL\n"
    1768 
    +#~ "   andway anway errorway umbernay isway eturnedray insteadway."
    1769 
    +
    1770 
    +#~ msgid ""
    1771 
    +#~ "Unix-lstat is similar to unix-stat except the specified\n"
    1772 
    +#~ "   file must be a symbolic link."
    1773 
    +#~ msgstr ""
    1774 
    +#~ "Unixway-statlay isway imilarsay otay unixway-tatsay exceptway ethay "
    1775 
    +#~ "ecifiedspay\n"
    1776 
    +#~ "   ilefay ustmay ebay away ymbolicsay inklay."
    1777 
    +
    1778 
    +#~ msgid ""
    1779 
    +#~ "Unix-fstat is similar to unix-stat except the file is specified\n"
    1780 
    +#~ "   by the file descriptor fd."
    1781 
    +#~ msgstr ""
    1782 
    +#~ "Unixway-statfay isway imilarsay otay unixway-tatsay exceptway ethay "
    1783 
    +#~ "ilefay isway ecifiedspay\n"
    1784 
    +#~ "   ybay ethay ilefay escriptorday dfay."
    1785 
    +
    1689 1786 
     #~ msgid ""
    1690 1787 
     #~ "Set the user ID of the calling process to UID.\n"
    1691 1788 
     #~ "   If the calling process is the super-user, set the real\n"

  • src/i18n/locale/en@piglatin/LC_MESSAGES/cmucl-x86-vm.po
    ... ... @@ -187,6 +187,10 @@ msgstr "Edefiningray SC umbernay ~D omfray ~S otay ~S."
    187 187 
     msgid "Class not yet defined: ~S"
    188 188 
     msgstr "Assclay otnay etyay efinedday: ~S"
    189 189
    190 
    +#: src/compiler/x86/insts.lisp
    191 
    +msgid "Sign extend the N-bit number X"
    192 
    +msgstr ""
    193 
    +
    190 194 
     #: src/compiler/x86/macros.lisp
    191 195 
     msgid "Move SRC into DST unless they are location=."
    192 196 
     msgstr "Ovemay SRC intoway DST unlessway eythay areway ocationlay=."

  • src/i18n/locale/en@piglatin/LC_MESSAGES/cmucl.po
    ... ... @@ -405,9 +405,11 @@ msgstr ""
    405 405 
     "Unctionsfay otay ebay invokedway uringday eanupclay atway Isplay exitway."
    406 406
    407 407 
     #: src/code/lispinit.lisp
    408 
    +#, fuzzy
    408 409 
     msgid ""
    409 
    -"Terminates the current Lisp.  Things are cleaned up unless Recklessly-P is\n"
    410 
    -"  non-Nil."
    410 
    +"Terminates the current Lisp.  Things are cleaned up unless\n"
    411 
    +"  Recklessly-P is non-Nil.  On quitting, Lisp sets the return code to\n"
    412 
    +"  Code, defaulting to 0."
    411 413 
     msgstr ""
    412 414 
     "Erminatestay ethay urrentcay Isplay.  Ingsthay areway eanedclay upway "
    413 415 
     "unlessway Ecklesslyray-P isway\n"
    ... ... @@ -1530,8 +1532,8 @@ msgid ""
    1530 1532 
     "\t\t    ~A definition."
    1531 1533 
     msgstr ""
    1532 1534 
     "Inway assclay ~S:~%  ~\n"
    1533 
    -"\t\t    ~:(~Away~) efinitionday ofway uperclasssay ~S incompatibleway ithway~"
    1534 
    -"%  ~\n"
    1535 
    +"\t\t    ~:(~Away~) efinitionday ofway uperclasssay ~S incompatibleway "
    1536 
    +"ithway~%  ~\n"
    1535 1537 
     "\t\t    ~Away efinitionday."
    1536 1538
    1537 1539 
     #: src/code/class.lisp
    ... ... @@ -5713,6 +5715,13 @@ msgstr ""
    5713 5715 
     "ormalizednay, ethay originalway\n"
    5714 5716 
     "  ingstray isway eturnedray."
    5715 5717
    5718 
    +#: src/code/string.lisp
    5719 
    +msgid ""
    5720 
    +"Convert STRING to NFD (or NFKD).  If :darwinp is non-NIL, then\n"
    5721 
    +"  characters in the ranges U2000-U2FFF, UF900-UFA6A, and U2F800-U2FA1D\n"
    5722 
    +"  are not decomposed, as specified for Darwin pathnames."
    5723 
    +msgstr ""
    5724 
    +
    5716 5725 
     #: src/code/string.lisp
    5717 5726 
     msgid ""
    5718 5727 
     "Convert a sequence of codepoints to a string.  Codepoints outside\n"
    ... ... @@ -8002,22 +8011,6 @@ msgstr ""
    8002 8011 
     "ecifiedspay adixray.  Eturnsray\n"
    8003 8012 
     "  NIL ifway onay uchsay aracterchay existsway."
    8004 8013
    8005 
    -#: src/code/misc.lisp
    8006 
    -msgid ""
    8007 
    -"Returns the documentation string of Doc-Type for X, or NIL if\n"
    8008 
    -"  none exists.  System doc-types are VARIABLE, FUNCTION, STRUCTURE, TYPE,\n"
    8009 
    -"  SETF, and T."
    8010 
    -msgstr ""
    8011 
    -"Eturnsray ethay ocumentationday ingstray ofway Ocday-Ypetay orfay X, orway "
    8012 
    -"NIL ifway\n"
    8013 
    -"  onenay existsway.  Ystemsay ocday-ypestay areway VARIABLE, FUNCTION, "
    8014 
    -"STRUCTURE, TYPE,\n"
    8015 
    -"  SETF, andway T."
    8016 
    -
    8017 
    -#: src/code/misc.lisp
    8018 
    -msgid "~S is not the name of a structure type."
    8019 
    -msgstr "~S isway otnay ethay amenay ofway away ucturestray ypetay."
    8020 
    -
    8021 8014 
     #: src/code/misc.lisp
    8022 8015 
     msgid ""
    8023 8016 
     "If X is an atom, see if it is present in *FEATURES*.  Also\n"
    ... ... @@ -8057,16 +8050,22 @@ msgstr "Ethay aluevay ofway SOFTWARE-TYPE. Etsay inway FOO-osway.isplay."
    8057 8050 
     msgid "Returns a string describing the supporting software."
    8058 8051 
     msgstr "Eturnsray away ingstray escribingday ethay upportingsay oftwaresay."
    8059 8052
    8053 
    +#: src/code/misc.lisp
    8054 
    +#, fuzzy
    8055 
    +msgid "Version string for supporting software"
    8056 
    +msgstr "Eturnsray away ingstray escribingday ethay upportingsay oftwaresay."
    8057 
    +
    8058 
    +#: src/code/misc.lisp
    8059 
    +#, fuzzy
    8060 
    +msgid "Returns a string describing version of the supporting software."
    8061 
    +msgstr "Eturnsray away ingstray escribingday ethay upportingsay oftwaresay."
    8062 
    +
    8060 8063 
     #: src/code/misc.lisp
    8061 8064 
     msgid "The value of SHORT-SITE-NAME.  Set in library:site-init.lisp."
    8062 8065 
     msgstr ""
    8063 8066 
     "Ethay aluevay ofway SHORT-SITE-NAME.  Etsay inway ibrarylay:itesay-initway."
    8064 8067 
     "isplay."
    8065 8068
    8066 
    -#: src/code/misc.lisp
    8067 
    -msgid "Unknown"
    8068 
    -msgstr "Unknownway"
    8069 
    -
    8070 8069 
     #: src/code/misc.lisp
    8071 8070 
     msgid "Returns a string with the abbreviated site name."
    8072 8071 
     msgstr "Eturnsray away ingstray ithway ethay abbreviatedway itesay amenay."
    ... ... @@ -8077,10 +8076,6 @@ msgstr ""
    8077 8076 
     "Ethay aluevay ofway LONG-SITE-NAME.  Etsay inway ibrarylay:itesay-initway."
    8078 8077 
     "isplay."
    8079 8078
    8080 
    -#: src/code/misc.lisp
    8081 
    -msgid "Site name not initialized"
    8082 
    -msgstr "Itesay amenay otnay initializedway"
    8083 
    -
    8084 8079 
     #: src/code/misc.lisp
    8085 8080 
     msgid "Returns a string with the long form of the site name."
    8086 8081 
     msgstr ""
    ... ... @@ -8113,13 +8108,16 @@ msgstr ""
    8113 8108 
     "  oadedlay, edway ancay ebay usedway otay editway away ilefay"
    8114 8109
    8115 8110 
     #: src/code/misc.lisp
    8111 
    +#, fuzzy
    8116 8112 
     msgid ""
    8117 8113 
     "Disassemble the machine code associated with OBJECT, which can be a\n"
    8118 8114 
     "  function, a lambda expression, or a symbol with a function definition.  "
    8119 8115 
     "If\n"
    8120 8116 
     "  it is not already compiled, the compiler is called to produce something "
    8121 8117 
     "to\n"
    8122 
    -"  disassemble."
    8118 
    +"  disassemble.\n"
    8119 
    +"\n"
    8120 
    +"  Also see disassem:disassemble for finer control of disassembly."
    8123 8121 
     msgstr ""
    8124 8122 
     "Isassembleday ethay achinemay odecay associatedway ithway OBJECT, ichwhay "
    8125 8123 
     "ancay ebay away\n"
    ... ... @@ -8129,6 +8127,22 @@ msgstr ""
    8129 8127 
     "otay oducepray omethingsay otay\n"
    8130 8128 
     "  isassembleday."
    8131 8129
    8130 
    +#: src/code/misc-doc.lisp
    8131 
    +msgid ""
    8132 
    +"Returns the documentation string of Doc-Type for X, or NIL if\n"
    8133 
    +"  none exists.  System doc-types are VARIABLE, FUNCTION, STRUCTURE, TYPE,\n"
    8134 
    +"  SETF, and T."
    8135 
    +msgstr ""
    8136 
    +"Eturnsray ethay ocumentationday ingstray ofway Ocday-Ypetay orfay X, orway "
    8137 
    +"NIL ifway\n"
    8138 
    +"  onenay existsway.  Ystemsay ocday-ypestay areway VARIABLE, FUNCTION, "
    8139 
    +"STRUCTURE, TYPE,\n"
    8140 
    +"  SETF, andway T."
    8141 
    +
    8142 
    +#: src/code/misc-doc.lisp
    8143 
    +msgid "~S is not the name of a structure type."
    8144 
    +msgstr "~S isway otnay ethay amenay ofway away ucturestray ypetay."
    8145 
    +
    8132 8146 
     #: src/code/extensions.lisp
    8133 8147 
     msgid ""
    8134 8148 
     "This function can be used as the default value for keyword arguments that\n"
    ... ... @@ -8864,6 +8878,15 @@ msgstr "Intpray outway ethay ommandcay inelay optionsway andway exitway"
    8864 8878 
     msgid "Same as -help."
    8865 8879 
     msgstr "Amesay asway -elphay."
    8866 8880
    8881 
    +#: src/code/commandline.lisp
    8882 
    +#, fuzzy
    8883 
    +msgid "Prints the cmucl version and exits"
    8884 
    +msgstr "Intpray outway ethay ommandcay inelay optionsway andway exitway"
    8885 
    +
    8886 
    +#: src/code/commandline.lisp
    8887 
    +msgid "Prints the cmucl version and exits; same as -version"
    8888 
    +msgstr ""
    8889 
    +
    8867 8890 
     #: src/code/env-access.lisp
    8868 8891 
     msgid ""
    8869 8892 
     "Returns information about the symbol VAR in the lexical environment ENV.\n"
    ... ... @@ -9114,8 +9137,8 @@ msgstr ""
    9114 9137 
     #: src/code/room.lisp
    9115 9138 
     msgid "~:D code-object bytes, ~:D code words, with ~:D no-ops (~D%).~%"
    9116 9139 
     msgstr ""
    9117 
    -"~:D odecay-objectway ytesbay, ~:D odecay ordsway, ithway ~:D onay-opsway (~D"
    9118 
    -"%).~%"
    9140 
    +"~:D odecay-objectway ytesbay, ~:D odecay ordsway, ithway ~:D onay-opsway "
    9141 
    +"(~D%).~%"
    9119 9142
    9120 9143 
     #: src/code/room.lisp
    9121 9144 
     msgid "Bogus type: ~D"
    ... ... @@ -9128,21 +9151,24 @@ msgstr "~:D ordsway allocatedway orfay escriptorday objectsway.~%"
    9128 9151 
     #: src/code/room.lisp
    9129 9152 
     msgid "~:D bytes data/~:D words header for non-descriptor objects.~%"
    9130 9153 
     msgstr ""
    9131 
    -"~:D ytesbay ataday/~:D ordsway eaderhay orfay onnay-escriptorday objectsway.~"
    9132 
    -"%"
    9154 
    +"~:D ytesbay ataday/~:D ordsway eaderhay orfay onnay-escriptorday objectsway."
    9155 
    +"~%"
    9133 9156
    9134 9157 
     #: src/code/room.lisp
    9135 9158 
     msgid ""
    9136 
    -"Print a breakdown by instance type of all the instances allocated in\n"
    9137 
    -"  Space.  If TOP-N is true, print only information for the the TOP-N types "
    9138 
    -"with\n"
    9139 
    -"  largest usage."
    9159 
    +"Print a breakdown by instance type of all the allocation in Space.  \n"
    9160 
    +"\n"
    9161 
    +"  :TOP-N \n"
    9162 
    +"      If true, print only the TOP-N types by largest usage.\n"
    9163 
    +"\n"
    9164 
    +"  :ENTRIES-VAR\n"
    9165 
    +"      If bound, contains the name of the symbol used to store the hash-"
    9166 
    +"table\n"
    9167 
    +"      of allocated entries for later processing.\n"
    9168 
    +"\n"
    9169 
    +"  :CALL-SOURCE\n"
    9170 
    +"      A string identifying the location from which instance-usage was called."
    9140 9171 
     msgstr ""
    9141 
    -"Intpray away eakdownbray ybay instanceway ypetay ofway allway ethay "
    9142 
    -"instancesway allocatedway inway\n"
    9143 
    -"  Acespay.  Ifway TOP-N isway uetray, intpray onlyway informationway orfay "
    9144 
    -"ethay ethay TOP-N ypestay ithway\n"
    9145 
    -"  argestlay usageway."
    9146 9172
    9147 9173 
     #: src/code/room.lisp
    9148 9174 
     msgid "~2&~@[Top ~D ~]~(~A~) instance types:~%"
    ... ... @@ -9670,6 +9696,12 @@ msgstr ""
    9670 9696 
     "Isthay isway uetray ifway andway onlyway ifway ethay isplay asway tartedsay "
    9671 9697 
     "ithway ethay -editway witchsay."
    9672 9698
    9699 
    +#: src/code/save.lisp
    9700 
    +msgid ""
    9701 
    +"Add external format alias for :locale to the format specified by\n"
    9702 
    +"  the locale as set by setlocale(3C)."
    9703 
    +msgstr ""
    9704 
    +
    9673 9705 
     #: src/code/save.lisp
    9674 9706 
     #, fuzzy
    9675 9707 
     msgid ""
    ... ... @@ -10083,10 +10115,16 @@ msgid "Impossible case reached in PEEK-CHAR"
    10083 10115 
     msgstr "Impossibleway asecay eachedray inway PEEK-CHAR"
    10084 10116
    10085 10117 
     #: src/code/stream.lisp
    10086 
    -msgid "Returns T if a character is available on the given Stream."
    10118 
    +msgid ""
    10119 
    +"Returns T if a character is available on the given Stream.\n"
    10120 
    +"  Argument Width is only used by instances of SIMPLE-STREAM. If\n"
    10121 
    +"  Stream is a LISP-STREAM or FUNDAMENTAL-STREAM, passing more\n"
    10122 
    +"  than one argument is invalid."
    10087 10123 
     msgstr ""
    10088 
    -"Eturnsray T ifway away aracterchay isway availableway onway ethay ivengay "
    10089 
    -"Eamstray."
    10124 
    +
    10125 
    +#: src/code/interr.lisp src/code/stream.lisp
    10126 
    +msgid "Invalid number of arguments: ~S"
    10127 
    +msgstr "Invalidway umbernay ofway argumentsway: ~S"
    10090 10128
    10091 10129 
     #: src/code/stream.lisp
    10092 10130 
     msgid "Returns the next character from the Stream if one is available, or nil."
    ... ... @@ -11997,8 +12035,8 @@ msgid ""
    11997 12035 
     "\t      results in name conflicts with these packages:~%~{~A ~}"
    11998 12036 
     msgstr ""
    11999 12037 
     "Exportingway esethay ymbolssay omfray ethay ~Away ackagepay:~%~S~%~\n"
    12000 
    -"\t      esultsray inway amenay onflictscay ithway esethay ackagespay:~"
    12001 
    -"%~{~Away ~}"
    12038 
    +"\t      esultsray inway amenay onflictscay ithway esethay ackagespay:"
    12039 
    +"~%~{~Away ~}"
    12002 12040
    12003 12041 
     #: src/code/package.lisp
    12004 12042 
     msgid "Unintern conflicting symbols."
    ... ... @@ -14749,8 +14787,8 @@ msgstr "Oadlay itway asway away ourcesay ilefay."
    14749 14787 
     #: src/code/load.lisp
    14750 14788 
     msgid "File has a fasl file type, but no fasl file header:~%  ~S"
    14751 14789 
     msgstr ""
    14752 
    -"Ilefay ashay away aslfay ilefay ypetay, utbay onay aslfay ilefay eaderhay:~"
    14753 
    -"%  ~S"
    14790 
    +"Ilefay ashay away aslfay ilefay ypetay, utbay onay aslfay ilefay eaderhay:"
    14791 
    +"~%  ~S"
    14754 14792
    14755 14793 
     #: src/code/load.lisp
    14756 14794 
     msgid ""
    ... ... @@ -14850,6 +14888,12 @@ msgstr ""
    14850 14888 
     msgid "*load-verbose* is bound to this before loading files."
    14851 14889 
     msgstr "*load-verbose* isway oundbay otay isthay eforebay oadinglay ilesfay."
    14852 14890
    14891 
    +#: src/code/module.lisp
    14892 
    +msgid ""
    14893 
    +"Provider functions for cmucl modules and libraries.  These are\n"
    14894 
    +"  searched first before trying *module-provider-functions*"
    14895 
    +msgstr ""
    14896 
    +
    14853 14897 
     #: src/code/module.lisp
    14854 14898 
     msgid "See function documentation for REQUIRE"
    14855 14899 
     msgstr "Eesay unctionfay ocumentationday orfay REQUIRE"
    ... ... @@ -15556,10 +15600,6 @@ msgstr ""
    15556 15600 
     msgid "Unknown error:~{ ~S~})"
    15557 15601 
     msgstr "Unknownway errorway:~{ ~S~})"
    15558 15602
    15559 
    -#: src/code/interr.lisp
    15560 
    -msgid "Invalid number of arguments: ~S"
    15561 
    -msgstr "Invalidway umbernay ofway argumentsway: ~S"
    15562 
    -
    15563 15603 
     #: src/code/interr.lisp
    15564 15604 
     msgid "Attempt to use VALUES-LIST on a dotted-list:~%  ~S"
    15565 15605 
     msgstr "Attemptway otay useway VALUES-LIST onway away ottedday-istlay:~%  ~S"
    ... ... @@ -15625,8 +15665,8 @@ msgstr "Internalway errorway ~D: ~Away. argsway=~S"
    15625 15665 
     msgid ""
    15626 15666 
     "~2&~@<A control stack overflow has occurred:~%~\n"
    15627 15667 
     "            the program has entered the yellow control stack guard zone.~%~\n"
    15628 
    -"            Please note that you will be returned to the Top-Level if you~"
    15629 
    -"%~\n"
    15668 
    +"            Please note that you will be returned to the Top-Level if "
    15669 
    +"you~%~\n"
    15630 15670 
     "            enter the red control stack guard zone while debugging.~@:>~2%"
    15631 15671 
     msgstr ""
    15632 15672 
     "~2&~@<Away ontrolcay tacksay overflowway ashay occurredway:~%~\n"
    ... ... @@ -15644,16 +15684,16 @@ msgid ""
    15644 15684 
     "           Returning to Top-Level.~@:>~2%"
    15645 15685 
     msgstr ""
    15646 15686 
     "~2&~@<Atalfay ontrolcay tacksay overflowway.  Ouyay avehay enteredway~%~\n"
    15647 
    -"           ethay edray ontrolcay tacksay uardgay onezay ilewhay ebuggingday.~"
    15648 
    -"%~\n"
    15687 
    +"           ethay edray ontrolcay tacksay uardgay onezay ilewhay ebuggingday."
    15688 
    +"~%~\n"
    15649 15689 
     "           Eturningray otay Optay-Evellay.~@:>~2%"
    15650 15690
    15651 15691 
     #: src/code/interr.lisp
    15652 15692 
     msgid ""
    15653 15693 
     "~2&~@<Imminent dynamic space overflow has occurred:~%~\n"
    15654 15694 
     "            Only a small amount of dynamic space is available now.~%~\n"
    15655 
    -"            Please note that you will be returned to the Top-Level without~"
    15656 
    -"%~\n"
    15695 
    +"            Please note that you will be returned to the Top-Level "
    15696 
    +"without~%~\n"
    15657 15697 
     "            warning if you run out of space while debugging.~@:>~%"
    15658 15698 
     msgstr ""
    15659 15699 
     "~2&~@<Imminentway ynamicday acespay overflowway ashay occurredway:~%~\n"
    ... ... @@ -19538,8 +19578,8 @@ msgstr ""
    19538 19578 
     "ouldshay ebay away\n"
    19539 19579 
     "istlay ofway ibrarylay ilesfay asway ouldway ebay ecifiedspay otay dlay. "
    19540 19580 
     "Eythay illway ebay\n"
    19541 
    -"earchedsay inway ethay orderway ivengay. Ethay efaultday isway ustjay \"-clay"
    19542 
    -"\", i.e., ethay C\n"
    19581 
    +"earchedsay inway ethay orderway ivengay. Ethay efaultday isway ustjay \"-"
    19582 
    +"clay\", i.e., ethay C\n"
    19543 19583 
     "ibrarylay. Ethay BASE-FILE argumentway isway usedway otay ecifyspay away "
    19544 19584 
     "ilefay otay useway asway\n"
    19545 19585 
     "ethay tartingsay aceplay orfay efinedday ymbolssay. Ethay efaultday isway "
    ... ... @@ -20335,8 +20375,8 @@ msgstr ""
    20335 20375 
     "Incompatiblyway edefiningray otsslay ofway ucturestray assclay ~S~@\n"
    20336 20376 
     "\t  Akemay uresay anyway usesway ofway affectedway accessorsway areway "
    20337 20377 
     "ecompiledray:~@\n"
    20338 
    -"\t  ~@[  Esethay otsslay ereway ovedmay otay ewnay ositionspay:~%    ~S~"
    20339 
    -"%~]~\n"
    20378 
    +"\t  ~@[  Esethay otsslay ereway ovedmay otay ewnay ositionspay:~%    "
    20379 
    +"~S~%~]~\n"
    20340 20380 
     "\t  ~@[  Esethay otsslay avehay ewnay incompatibleway ypestay:~%    ~S~%~]~\n"
    20341 20381 
     "\t  ~@[  Esethay otsslay ereway eletedday:~%    ~S~%~]"
    20342 20382
    ... ... @@ -21750,6 +21790,23 @@ msgstr ""
    21750 21790 
     "odifiablemay aracterschay\n"
    21751 21791 
     "  elimitedday ybay onnay-asecay-odifiablemay arschay.  "
    21752 21792
    21793 
    +#: src/code/unicode.lisp
    21794 
    +msgid ""
    21795 
    +"Decompose the Hangul syllable codepoint CP to an equivalent sequence\n"
    21796 
    +"  of conjoining jamo and print the decomposed result to the stream\n"
    21797 
    +"  STREAM."
    21798 
    +msgstr ""
    21799 
    +
    21800 
    +#: src/code/unicode.lisp
    21801 
    +msgid "Test if CODEPOINT is a Hangul syllable"
    21802 
    +msgstr ""
    21803 
    +
    21804 
    +#: src/code/unicode.lisp
    21805 
    +msgid ""
    21806 
    +"Decompose any Hangul syllables in STRING to an equivalent sequence of\n"
    21807 
    +"  conjoining jamo characters."
    21808 
    +msgstr ""
    21809 
    +
    21753 21810 
     #: src/compiler/macros.lisp
    21754 21811 
     msgid ""
    21755 21812 
     "Policy Node Condition*\n"
    ... ... @@ -23094,8 +23151,8 @@ msgid ""
    23094 23151 
     "\t   conflicts with the definition's result type assertion:~%  ~S"
    23095 23152 
     msgstr ""
    23096 23153 
     "Ethay esultray ypetay omfray ~Away:~%  ~S~@\n"
    23097 
    -"\t   onflictscay ithway ethay efinitionday's esultray ypetay assertionway:~"
    23098 
    -"%  ~S"
    23154 
    +"\t   onflictscay ithway ethay efinitionday's esultray ypetay assertionway:"
    23155 
    +"~%  ~S"
    23099 23156
    23100 23157 
     #: src/compiler/ctype.lisp
    23101 23158 
     msgid ""
    ... ... @@ -25107,6 +25164,11 @@ msgid "Can't make a compiled function from ~S"
    25107 25164 
     msgstr "Ancay't akemay away ompiledcay unctionfay omfray ~S"
    25108 25165
    25109 25166 
     #: src/compiler/disassem.lisp
    25167 
    +msgid "Default value for :radix argument for disassem:disassemble"
    25168 
    +msgstr ""
    25169 
    +
    25170 
    +#: src/compiler/disassem.lisp
    25171 
    +#, fuzzy
    25110 25172 
     msgid ""
    25111 25173 
     "Disassemble the machine code associated with OBJECT, which can be a\n"
    25112 25174 
     "  function, a lambda expression, or a symbol with a function definition.  "
    ... ... @@ -25124,7 +25186,7 @@ msgid ""
    25124 25186 
     "  :Radix\n"
    25125 25187 
     "      The disassembler uses the specified base, case, and radix when\n"
    25126 25188 
     "      printing the disassembled code.  The default values are 16,\n"
    25127 
    -"      :downcase, and *print-radix*, respectively."
    25189 
    +"      :downcase, and *disassemble-print-radix*, respectively."
    25128 25190 
     msgstr ""
    25129 25191 
     "Isassembleday ethay achinemay odecay associatedway ithway OBJECT, ichwhay "
    25130 25192 
     "ancay ebay away\n"
    ... ... @@ -27979,8 +28041,8 @@ msgid ""
    27979 28041 
     msgstr ""
    27980 28042 
     "~S isway otnay alidvay asway ethay ~:R ~:[esultray~;argumentway~] otay "
    27981 28043 
     "ethay~@\n"
    27982 
    -"\t        ~S VOP, incesay ethay TN's imitivepray ypetay ~S allowsway Sscay:~"
    27983 
    -"%  ~S~@\n"
    28044 
    +"\t        ~S VOP, incesay ethay TN's imitivepray ypetay ~S allowsway Sscay:"
    28045 
    +"~%  ~S~@\n"
    27984 28046 
     "\t\t~:[ichwhay annotcay ebay oercedcay orway oadedlay intoway ethay "
    27985 28047 
     "allowedway Sscay:~\n"
    27986 28048 
     "\t\t~%  ~S~;~*~]~:[~;~@\n"
    ... ... @@ -28014,8 +28076,8 @@ msgstr ""
    28014 28076 
     "~\n"
    28015 28077 
     "\t        ~%  ~S~%Imitivepray ypetay: ~S~@\n"
    28016 28078 
     "\t\tSC estrictionsray:~%  ~S~@\n"
    28017 
    -"\t\t~@[Ethay imitivepray ypetay isallowsday esethay oadablelay Sscay:~%  ~S~"
    28018 
    -"%~]~\n"
    28079 
    +"\t\t~@[Ethay imitivepray ypetay isallowsday esethay oadablelay Sscay:~%  "
    28080 
    +"~S~%~]~\n"
    28019 28081 
     "\t\t~@[Onay ovemay Opsvay areway efinedday otay oercecay otay esethay "
    28020 28082 
     "allowedway Sscay:~\n"
    28021 28083 
     "\t\t~%  ~S~%~]~\n"
    ... ... @@ -31016,6 +31078,29 @@ msgstr ""
    31016 31078 
     "eplacedray ybay ethay\n"
    31017 31079 
     "Unicodeway eplacementray aracterchay."
    31018 31080
    31081 
    +#~ msgid "Unknown"
    31082 
    +#~ msgstr "Unknownway"
    31083 
    +
    31084 
    +#~ msgid "Site name not initialized"
    31085 
    +#~ msgstr "Itesay amenay otnay initializedway"
    31086 
    +
    31087 
    +#~ msgid ""
    31088 
    +#~ "Print a breakdown by instance type of all the instances allocated in\n"
    31089 
    +#~ "  Space.  If TOP-N is true, print only information for the the TOP-N "
    31090 
    +#~ "types with\n"
    31091 
    +#~ "  largest usage."
    31092 
    +#~ msgstr ""
    31093 
    +#~ "Intpray away eakdownbray ybay instanceway ypetay ofway allway ethay "
    31094 
    +#~ "instancesway allocatedway inway\n"
    31095 
    +#~ "  Acespay.  Ifway TOP-N isway uetray, intpray onlyway informationway "
    31096 
    +#~ "orfay ethay ethay TOP-N ypestay ithway\n"
    31097 
    +#~ "  argestlay usageway."
    31098 
    +
    31099 
    +#~ msgid "Returns T if a character is available on the given Stream."
    31100 
    +#~ msgstr ""
    31101 
    +#~ "Eturnsray T ifway away aracterchay isway availableway onway ethay ivengay "
    31102 
    +#~ "Eamstray."
    31103 
    +
    31019 31104 
     #~ msgid "Shouldn't happen"
    31020 31105 
     #~ msgstr "Ouldnshay't appenhay"
    31021 31106

  • src/i18n/locale/ko/LC_MESSAGES/cmucl-bsd-os.po
    ... ... @@ -15,22 +15,10 @@ msgstr ""
    15 15 
     "Content-Type: text/plain; charset=UTF-8\n"
    16 16 
     "Content-Transfer-Encoding: 8bit\n"
    17 17
    18 
    -#: src/code/bsd-os.lisp
    19 
    -msgid "Version string for supporting software"
    20 
    -msgstr "소프트 웨어를 지원하기위한 버전 문자열"
    21 
    -
    22 
    -#: src/code/bsd-os.lisp
    23 
    -msgid "Returns a string describing version of the supporting software."
    24 
    -msgstr "문자열을 지원하는 소프트웨어의 버전을 설명을 반환합니다."
    25 
    -
    26 18 
     #: src/code/bsd-os.lisp
    27 19 
     msgid "Unix system call getrusage failed: ~A."
    28 20 
     msgstr "유닉스 시스템 호출에 실패 getrusage: ~A 등급."
    29 21
    30 
    -#: src/code/bsd-os.lisp
    31 
    -msgid "Getpagesize failed: ~A"
    32 
    -msgstr "Getpagesize 실패: ~ A 등급"
    33 
    -
    34 22 
     #: src/code/signal.lisp
    35 23 
     msgid "Emt instruction"
    36 24 
     msgstr ""
    ... ... @@ -38,3 +26,12 @@ msgstr ""
    38 26 
     #: src/code/signal.lisp
    39 27 
     msgid "Bad argument to system call"
    40 28 
     msgstr ""
    29 
    +
    30 
    +#~ msgid "Version string for supporting software"
    31 
    +#~ msgstr "소프트 웨어를 지원하기위한 버전 문자열"
    32 
    +
    33 
    +#~ msgid "Returns a string describing version of the supporting software."
    34 
    +#~ msgstr "문자열을 지원하는 소프트웨어의 버전을 설명을 반환합니다."
    35 
    +
    36 
    +#~ msgid "Getpagesize failed: ~A"
    37 
    +#~ msgstr "Getpagesize 실패: ~ A 등급"

  • src/i18n/locale/ko/LC_MESSAGES/cmucl-linux-os.po
    ... ... @@ -15,14 +15,6 @@ msgstr ""
    15 15 
     "Content-Type: text/plain; charset=UTF-8\n"
    16 16 
     "Content-Transfer-Encoding: 8bit\n"
    17 17
    18 
    -#: src/code/linux-os.lisp
    19 
    -msgid "Returns a string describing version of the supporting software."
    20 
    -msgstr ""
    21 
    -
    22 
    -#: src/code/linux-os.lisp
    23 
    -msgid "Unix system call getrusage failed: ~A."
    24 
    -msgstr ""
    25 
    -
    26 18 
     #: src/code/linux-os.lisp
    27 19 
     msgid "Getpagesize failed: ~A"
    28 20 
     msgstr ""

  • src/i18n/locale/ko/LC_MESSAGES/cmucl-unix.po
    ... ... @@ -15,6 +15,15 @@ msgstr ""
    15 15 
     "Content-Type: text/plain; charset=UTF-8\n"
    16 16 
     "Content-Transfer-Encoding: 8bit\n"
    17 17
    18 
    +#: src/code/unix.lisp
    19 
    +msgid ""
    20 
    +"The encoding to use for converting a namestring to a string that can\n"
    21 
    +"  be used by the operations system.  It must be a valid\n"
    22 
    +"  external-format name or :NULL.  :NULL means the string\n"
    23 
    +"  is passed as is to the operating system.  The operating system will\n"
    24 
    +"  get the low 8 bits of each UTF-16 code unit of the string."
    25 
    +msgstr ""
    26 
    +
    18 27 
     #: src/code/unix.lisp
    19 28 
     msgid "Syscall ~A failed: ~A"
    20 29 
     msgstr ""
    ... ... @@ -461,10 +470,6 @@ msgid ""
    461 470 
     "   current process."
    462 471 
     msgstr ""
    463 472
    464 
    -#: src/code/unix.lisp
    465 
    -msgid "Unix-getpagesize returns the number of bytes in a system page."
    466 
    -msgstr ""
    467 
    -
    468 473 
     #: src/code/unix.lisp
    469 474 
     msgid "Unix-gethostname returns the name of the host machine as a string."
    470 475 
     msgstr ""
    ... ... @@ -489,22 +494,68 @@ msgstr ""
    489 494 
     #: src/code/unix.lisp
    490 495 
     msgid ""
    491 496 
     "Unix-stat retrieves information about the specified\n"
    492 
    -"   file returning them in the form of multiple values.\n"
    493 
    -"   See the UNIX Programmer's Manual for a description\n"
    494 
    -"   of the values returned.  If the call fails, then NIL\n"
    495 
    -"   and an error number is returned instead."
    497 
    +"   file returning them in the form of multiple values.  If the call\n"
    498 
    +"   fails, then NIL and an error number is returned.  If the call\n"
    499 
    +"   succeeds, then T is returned in addition to the following values\n"
    500 
    +"   from the stat struct st:\n"
    501 
    +"\n"
    502 
    +"     st_dev        Device ID\n"
    503 
    +"     st_ino        File serial number\n"
    504 
    +"     st_mode       Mode of file\n"
    505 
    +"     st_nlink      Number of hard links to the file\n"
    506 
    +"     st_uid        User ID\n"
    507 
    +"     st_gid        Group ID\n"
    508 
    +"     st_rdev       Device ID (if file is character or block special)\n"
    509 
    +"     st_atime      Last data access time, in sec\n"
    510 
    +"     st_mtime      Last data modification time, in sec\n"
    511 
    +"     st_ctime      Last file status change time, in sec\n"
    512 
    +"     st_blksize    Preferred I/O block size\n"
    513 
    +"     st_blocks     Number of blocks allocated. (Block size is implementation "
    514 
    +"dependent.)\n"
    496 515 
     msgstr ""
    497 516
    498 517 
     #: src/code/unix.lisp
    499 518 
     msgid ""
    500 
    -"Unix-lstat is similar to unix-stat except the specified\n"
    501 
    -"   file must be a symbolic link."
    519 
    +"Unix-fstat is similar to unix-stat except the file is specified\n"
    520 
    +"   by the file descriptor fd.  If the call fails, then NIL and an\n"
    521 
    +"   error number is returned.  If the call succeeds, then T is returned\n"
    522 
    +"   in addition to the following values from the stat struct st:\n"
    523 
    +"\n"
    524 
    +"     st_dev        Device ID\n"
    525 
    +"     st_ino        File serial number\n"
    526 
    +"     st_mode       Mode of file\n"
    527 
    +"     st_nlink      Number of hard links to the file\n"
    528 
    +"     st_uid        User ID\n"
    529 
    +"     st_gid        Group ID\n"
    530 
    +"     st_rdev       Device ID (if file is character or block special)\n"
    531 
    +"     st_atime      Last data access time, in sec\n"
    532 
    +"     st_mtime      Last data modification time, in sec\n"
    533 
    +"     st_ctime      Last file status change time, in sec\n"
    534 
    +"     st_blksize    Preferred I/O block size\n"
    535 
    +"     st_blocks     Number of blocks allocated. (Block size is implementation "
    536 
    +"dependent.)\n"
    502 537 
     msgstr ""
    503 538
    504 539 
     #: src/code/unix.lisp
    505 540 
     msgid ""
    506 
    -"Unix-fstat is similar to unix-stat except the file is specified\n"
    507 
    -"   by the file descriptor fd."
    541 
    +"Unix-lstat is similar to unix-stat except the specified\n"
    542 
    +"   file must be a symbolic link.  If the call fails, then NIL and an\n"
    543 
    +"   error number is returned.  If the call succeeds, then T is returned\n"
    544 
    +"   in addition to the following values from the stat struct st:\n"
    545 
    +"\n"
    546 
    +"     st_dev        Device ID\n"
    547 
    +"     st_ino        File serial number\n"
    548 
    +"     st_mode       Mode of file\n"
    549 
    +"     st_nlink      Number of hard links to the file\n"
    550 
    +"     st_uid        User ID\n"
    551 
    +"     st_gid        Group ID\n"
    552 
    +"     st_rdev       Device ID (if file is character or block special)\n"
    553 
    +"     st_atime      Last data access time, in sec\n"
    554 
    +"     st_mtime      Last data modification time, in sec\n"
    555 
    +"     st_ctime      Last file status change time, in sec\n"
    556 
    +"     st_blksize    Preferred I/O block size\n"
    557 
    +"     st_blocks     Number of blocks allocated. (Block size is implementation "
    558 
    +"dependent.)\n"
    508 559 
     msgstr ""
    509 560
    510 561 
     #: src/code/unix.lisp
    ... ... @@ -1302,6 +1353,14 @@ msgid ""
    1302 1353 
     "found."
    1303 1354 
     msgstr ""
    1304 1355
    1356 
    +#: src/code/unix.lisp
    1357 
    +msgid ""
    1358 
    +"Return a USER-INFO structure for the user identified by UID.  If\n"
    1359 
    +"  not found, NIL is returned with a second value indicating the cause\n"
    1360 
    +"  of the failure.  In particular, if the second value is 0 (or\n"
    1361 
    +"  ENONENT, ESRCH, EBADF, etc.), then the uid was not found."
    1362 
    +msgstr ""
    1363 
    +
    1305 1364 
     #: src/code/unix.lisp
    1306 1365 
     msgid ""
    1307 1366 
     "Unix-times returns information about the cpu time usage of the process\n"
    ... ... @@ -1353,3 +1412,18 @@ msgid ""
    1353 1412 
     "   of the child in the parent if it works, or NIL and an error number if it\n"
    1354 1413 
     "   doesn't work."
    1355 1414 
     msgstr ""
    1415 
    +
    1416 
    +#: src/code/unix.lisp
    1417 
    +msgid "Call setlocale(3c) with fixed args.  Returns 0 on success."
    1418 
    +msgstr ""
    1419 
    +
    1420 
    +#: src/code/unix.lisp
    1421 
    +msgid ""
    1422 
    +"Get LC_MESSAGES from the current locale.  If we can't, return\n"
    1423 
    +"  NIL.  A call to UNIX-SETLOCALE must have been done previously before\n"
    1424 
    +"  calling this so that the correct locale is returned."
    1425 
    +msgstr ""
    1426 
    +
    1427 
    +#: src/code/unix.lisp
    1428 
    +msgid "Get the codeset from the locale"
    1429 
    +msgstr ""

  • src/i18n/locale/ko/LC_MESSAGES/cmucl-x86-vm.po
    ... ... @@ -144,6 +144,10 @@ msgstr ""
    144 144 
     msgid "Class not yet defined: ~S"
    145 145 
     msgstr ""
    146 146
    147 
    +#: src/compiler/x86/insts.lisp
    148 
    +msgid "Sign extend the N-bit number X"
    149 
    +msgstr ""
    150 
    +
    147 151 
     #: src/compiler/x86/macros.lisp
    148 152 
     msgid "Move SRC into DST unless they are location=."
    149 153 
     msgstr ""

  • src/i18n/locale/ko/LC_MESSAGES/cmucl.po
    ... ... @@ -312,8 +312,9 @@ msgstr ""
    312 312
    313 313 
     #: src/code/lispinit.lisp
    314 314 
     msgid ""
    315 
    -"Terminates the current Lisp.  Things are cleaned up unless Recklessly-P is\n"
    316 
    -"  non-Nil."
    315 
    +"Terminates the current Lisp.  Things are cleaned up unless\n"
    316 
    +"  Recklessly-P is non-Nil.  On quitting, Lisp sets the return code to\n"
    317 
    +"  Code, defaulting to 0."
    317 318 
     msgstr ""
    318 319
    319 320 
     #: src/code/lispinit.lisp
    ... ... @@ -4013,6 +4014,13 @@ msgid ""
    4013 4014 
     "  string is returned."
    4014 4015 
     msgstr ""
    4015 4016
    4017 
    +#: src/code/string.lisp
    4018 
    +msgid ""
    4019 
    +"Convert STRING to NFD (or NFKD).  If :darwinp is non-NIL, then\n"
    4020 
    +"  characters in the ranges U2000-U2FFF, UF900-UFA6A, and U2F800-U2FA1D\n"
    4021 
    +"  are not decomposed, as specified for Darwin pathnames."
    4022 
    +msgstr ""
    4023 
    +
    4016 4024 
     #: src/code/string.lisp
    4017 4025 
     msgid ""
    4018 4026 
     "Convert a sequence of codepoints to a string.  Codepoints outside\n"
    ... ... @@ -5601,17 +5609,6 @@ msgid ""
    5601 5609 
     "  NIL if no such character exists."
    5602 5610 
     msgstr ""
    5603 5611
    5604 
    -#: src/code/misc.lisp
    5605 
    -msgid ""
    5606 
    -"Returns the documentation string of Doc-Type for X, or NIL if\n"
    5607 
    -"  none exists.  System doc-types are VARIABLE, FUNCTION, STRUCTURE, TYPE,\n"
    5608 
    -"  SETF, and T."
    5609 
    -msgstr ""
    5610 
    -
    5611 
    -#: src/code/misc.lisp
    5612 
    -msgid "~S is not the name of a structure type."
    5613 
    -msgstr ""
    5614 
    -
    5615 5612 
     #: src/code/misc.lisp
    5616 5613 
     msgid ""
    5617 5614 
     "If X is an atom, see if it is present in *FEATURES*.  Also\n"
    ... ... @@ -5647,23 +5644,23 @@ msgid "Returns a string describing the supporting software."
    5647 5644 
     msgstr ""
    5648 5645
    5649 5646 
     #: src/code/misc.lisp
    5650 
    -msgid "The value of SHORT-SITE-NAME.  Set in library:site-init.lisp."
    5647 
    +msgid "Version string for supporting software"
    5651 5648 
     msgstr ""
    5652 5649
    5653 5650 
     #: src/code/misc.lisp
    5654 
    -msgid "Unknown"
    5651 
    +msgid "Returns a string describing version of the supporting software."
    5655 5652 
     msgstr ""
    5656 5653
    5657 5654 
     #: src/code/misc.lisp
    5658 
    -msgid "Returns a string with the abbreviated site name."
    5655 
    +msgid "The value of SHORT-SITE-NAME.  Set in library:site-init.lisp."
    5659 5656 
     msgstr ""
    5660 5657
    5661 5658 
     #: src/code/misc.lisp
    5662 
    -msgid "The value of LONG-SITE-NAME.  Set in library:site-init.lisp."
    5659 
    +msgid "Returns a string with the abbreviated site name."
    5663 5660 
     msgstr ""
    5664 5661
    5665 5662 
     #: src/code/misc.lisp
    5666 
    -msgid "Site name not initialized"
    5663 
    +msgid "The value of LONG-SITE-NAME.  Set in library:site-init.lisp."
    5667 5664 
     msgstr ""
    5668 5665
    5669 5666 
     #: src/code/misc.lisp
    ... ... @@ -5694,7 +5691,20 @@ msgid ""
    5694 5691 
     "If\n"
    5695 5692 
     "  it is not already compiled, the compiler is called to produce something "
    5696 5693 
     "to\n"
    5697 
    -"  disassemble."
    5694 
    +"  disassemble.\n"
    5695 
    +"\n"
    5696 
    +"  Also see disassem:disassemble for finer control of disassembly."
    5697 
    +msgstr ""
    5698 
    +
    5699 
    +#: src/code/misc-doc.lisp
    5700 
    +msgid ""
    5701 
    +"Returns the documentation string of Doc-Type for X, or NIL if\n"
    5702 
    +"  none exists.  System doc-types are VARIABLE, FUNCTION, STRUCTURE, TYPE,\n"
    5703 
    +"  SETF, and T."
    5704 
    +msgstr ""
    5705 
    +
    5706 
    +#: src/code/misc-doc.lisp
    5707 
    +msgid "~S is not the name of a structure type."
    5698 5708 
     msgstr ""
    5699 5709
    5700 5710 
     #: src/code/extensions.lisp
    ... ... @@ -6145,6 +6155,14 @@ msgstr ""
    6145 6155 
     msgid "Same as -help."
    6146 6156 
     msgstr ""
    6147 6157
    6158 
    +#: src/code/commandline.lisp
    6159 
    +msgid "Prints the cmucl version and exits"
    6160 
    +msgstr ""
    6161 
    +
    6162 
    +#: src/code/commandline.lisp
    6163 
    +msgid "Prints the cmucl version and exits; same as -version"
    6164 
    +msgstr ""
    6165 
    +
    6148 6166 
     #: src/code/env-access.lisp
    6149 6167 
     msgid ""
    6150 6168 
     "Returns information about the symbol VAR in the lexical environment ENV.\n"
    ... ... @@ -6334,10 +6352,18 @@ msgstr ""
    6334 6352
    6335 6353 
     #: src/code/room.lisp
    6336 6354 
     msgid ""
    6337 
    -"Print a breakdown by instance type of all the instances allocated in\n"
    6338 
    -"  Space.  If TOP-N is true, print only information for the the TOP-N types "
    6339 
    -"with\n"
    6340 
    -"  largest usage."
    6355 
    +"Print a breakdown by instance type of all the allocation in Space.  \n"
    6356 
    +"\n"
    6357 
    +"  :TOP-N \n"
    6358 
    +"      If true, print only the TOP-N types by largest usage.\n"
    6359 
    +"\n"
    6360 
    +"  :ENTRIES-VAR\n"
    6361 
    +"      If bound, contains the name of the symbol used to store the hash-"
    6362 
    +"table\n"
    6363 
    +"      of allocated entries for later processing.\n"
    6364 
    +"\n"
    6365 
    +"  :CALL-SOURCE\n"
    6366 
    +"      A string identifying the location from which instance-usage was called."
    6341 6367 
     msgstr ""
    6342 6368
    6343 6369 
     #: src/code/room.lisp
    ... ... @@ -6722,6 +6748,12 @@ msgstr ""
    6722 6748 
     msgid "This is true if and only if the lisp was started with the -edit switch."
    6723 6749 
     msgstr ""
    6724 6750
    6751 
    +#: src/code/save.lisp
    6752 
    +msgid ""
    6753 
    +"Add external format alias for :locale to the format specified by\n"
    6754 
    +"  the locale as set by setlocale(3C)."
    6755 
    +msgstr ""
    6756 
    +
    6725 6757 
     #: src/code/save.lisp
    6726 6758 
     msgid ""
    6727 6759 
     "Saves a CMU Common Lisp core image in the file of the specified name.  The\n"
    ... ... @@ -7008,7 +7040,15 @@ msgid "Impossible case reached in PEEK-CHAR"
    7008 7040 
     msgstr ""
    7009 7041
    7010 7042 
     #: src/code/stream.lisp
    7011 
    -msgid "Returns T if a character is available on the given Stream."
    7043 
    +msgid ""
    7044 
    +"Returns T if a character is available on the given Stream.\n"
    7045 
    +"  Argument Width is only used by instances of SIMPLE-STREAM. If\n"
    7046 
    +"  Stream is a LISP-STREAM or FUNDAMENTAL-STREAM, passing more\n"
    7047 
    +"  than one argument is invalid."
    7048 
    +msgstr ""
    7049 
    +
    7050 
    +#: src/code/interr.lisp src/code/stream.lisp
    7051 
    +msgid "Invalid number of arguments: ~S"
    7012 7052 
     msgstr ""
    7013 7053
    7014 7054 
     #: src/code/stream.lisp
    ... ... @@ -10412,6 +10452,12 @@ msgstr ""
    10412 10452 
     msgid "*load-verbose* is bound to this before loading files."
    10413 10453 
     msgstr ""
    10414 10454
    10455 
    +#: src/code/module.lisp
    10456 
    +msgid ""
    10457 
    +"Provider functions for cmucl modules and libraries.  These are\n"
    10458 
    +"  searched first before trying *module-provider-functions*"
    10459 
    +msgstr ""
    10460 
    +
    10415 10461 
     #: src/code/module.lisp
    10416 10462 
     msgid "See function documentation for REQUIRE"
    10417 10463 
     msgstr ""
    ... ... @@ -10897,10 +10943,6 @@ msgstr ""
    10897 10943 
     msgid "Unknown error:~{ ~S~})"
    10898 10944 
     msgstr ""
    10899 10945
    10900 
    -#: src/code/interr.lisp
    10901 
    -msgid "Invalid number of arguments: ~S"
    10902 
    -msgstr ""
    10903 
    -
    10904 10946 
     #: src/code/interr.lisp
    10905 10947 
     msgid "Attempt to use VALUES-LIST on a dotted-list:~%  ~S"
    10906 10948 
     msgstr ""
    ... ... @@ -10956,8 +10998,8 @@ msgstr ""
    10956 10998 
     msgid ""
    10957 10999 
     "~2&~@<A control stack overflow has occurred:~%~\n"
    10958 11000 
     "            the program has entered the yellow control stack guard zone.~%~\n"
    10959 
    -"            Please note that you will be returned to the Top-Level if you~"
    10960 
    -"%~\n"
    11001 
    +"            Please note that you will be returned to the Top-Level if "
    11002 
    +"you~%~\n"
    10961 11003 
     "            enter the red control stack guard zone while debugging.~@:>~2%"
    10962 11004 
     msgstr ""
    10963 11005
    ... ... @@ -10972,8 +11014,8 @@ msgstr ""
    10972 11014 
     msgid ""
    10973 11015 
     "~2&~@<Imminent dynamic space overflow has occurred:~%~\n"
    10974 11016 
     "            Only a small amount of dynamic space is available now.~%~\n"
    10975 
    -"            Please note that you will be returned to the Top-Level without~"
    10976 
    -"%~\n"
    11017 
    +"            Please note that you will be returned to the Top-Level "
    11018 
    +"without~%~\n"
    10977 11019 
     "            warning if you run out of space while debugging.~@:>~%"
    10978 11020 
     msgstr ""
    10979 11021
    ... ... @@ -15268,6 +15310,23 @@ msgid ""
    15268 15310 
     "  delimited by non-case-modifiable chars.  "
    15269 15311 
     msgstr ""
    15270 15312
    15313 
    +#: src/code/unicode.lisp
    15314 
    +msgid ""
    15315 
    +"Decompose the Hangul syllable codepoint CP to an equivalent sequence\n"
    15316 
    +"  of conjoining jamo and print the decomposed result to the stream\n"
    15317 
    +"  STREAM."
    15318 
    +msgstr ""
    15319 
    +
    15320 
    +#: src/code/unicode.lisp
    15321 
    +msgid "Test if CODEPOINT is a Hangul syllable"
    15322 
    +msgstr ""
    15323 
    +
    15324 
    +#: src/code/unicode.lisp
    15325 
    +msgid ""
    15326 
    +"Decompose any Hangul syllables in STRING to an equivalent sequence of\n"
    15327 
    +"  conjoining jamo characters."
    15328 
    +msgstr ""
    15329 
    +
    15271 15330 
     #: src/compiler/macros.lisp
    15272 15331 
     msgid ""
    15273 15332 
     "Policy Node Condition*\n"
    ... ... @@ -17366,6 +17425,10 @@ msgstr ""
    17366 17425 
     msgid "Can't make a compiled function from ~S"
    17367 17426 
     msgstr ""
    17368 17427
    17428 
    +#: src/compiler/disassem.lisp
    17429 
    +msgid "Default value for :radix argument for disassem:disassemble"
    17430 
    +msgstr ""
    17431 
    +
    17369 17432 
     #: src/compiler/disassem.lisp
    17370 17433 
     msgid ""
    17371 17434 
     "Disassemble the machine code associated with OBJECT, which can be a\n"
    ... ... @@ -17384,7 +17447,7 @@ msgid ""
    17384 17447 
     "  :Radix\n"
    17385 17448 
     "      The disassembler uses the specified base, case, and radix when\n"
    17386 17449 
     "      printing the disassembled code.  The default values are 16,\n"
    17387 
    -"      :downcase, and *print-radix*, respectively."
    17450 
    +"      :downcase, and *disassemble-print-radix*, respectively."
    17388 17451 
     msgstr ""
    17389 17452
    17390 17453 
     #: src/compiler/disassem.lisp

    • —
    View it on GitLab.
    You're receiving this email because of your account on gitlab.common-lisp.net. Manage all notifications · Help