[cmucl-cvs] [git] CMU Common Lisp branch master updated. snapshot-2012-01-35-ga993b16

Raymond Toy rtoy at common-lisp.net
Sat Feb 4 16:33:06 UTC 2012


This is an automated email from the git hooks/post-receive script. It was
generated because a ref change was pushed to the repository containing
the project "CMU Common Lisp".

The branch, master has been updated
       via  a993b16048c21136a274c7b7d09a5b3969bf444a (commit)
       via  2874165662a2894134ac1d120dfae5e96002c96f (commit)
       via  5b860d11a949ccf69d80f501bf911ccf29d09a3f (commit)
       via  e2e3b4a38a0d251edf2d7805a00a0b6baef2b4fd (commit)
       via  ebf5d59dc76245252f0ee206b23b713894fb9f16 (commit)
      from  e7900f281d4bf965697a7f76040b4f1b5c0b8908 (commit)

Those revisions listed above that are new to this repository have
not appeared on any other notification email; so we list those
revisions in full, below.

- Log -----------------------------------------------------------------
commit a993b16048c21136a274c7b7d09a5b3969bf444a
Author: Raymond Toy <toy.raymond at gmail.com>
Date:   Sat Feb 4 00:29:27 2012 -0800

    Use CHAR_BIT instead of 8.

diff --git a/src/lisp/interrupt.c b/src/lisp/interrupt.c
index b6332f5..25fb2f6 100644
--- a/src/lisp/interrupt.c
+++ b/src/lisp/interrupt.c
@@ -175,7 +175,7 @@ copy_sigmask(sigset_t *dst, sigset_t *src)
 #ifndef __linux__
     *dst = *src;
 #else
-    memcpy(dst, src, NSIG / 8);
+    memcpy(dst, src, NSIG / CHAR_BIT);
 #endif
 }
 

commit 2874165662a2894134ac1d120dfae5e96002c96f
Author: Raymond Toy <toy.raymond at gmail.com>
Date:   Sat Feb 4 00:28:22 2012 -0800

    Regenerated.

diff --git a/src/i18n/locale/en at piglatin/LC_MESSAGES/cmucl-sparc-vm.po b/src/i18n/locale/en at piglatin/LC_MESSAGES/cmucl-sparc-vm.po
index c5ad3ff..292db31 100644
--- a/src/i18n/locale/en at piglatin/LC_MESSAGES/cmucl-sparc-vm.po
+++ b/src/i18n/locale/en at piglatin/LC_MESSAGES/cmucl-sparc-vm.po
@@ -16,6 +16,62 @@ msgstr ""
 "Content-Transfer-Encoding: 8bit\n"
 "Plural-Forms: nplurals=2; plural=(n != 1);\n"
 
+#: src/code/sparc-svr4-vm.lisp
+msgid "Returns a string describing the type of the local machine."
+msgstr ""
+
+#: src/code/sparc-svr4-vm.lisp
+msgid "Returns a string describing the version of the local machine."
+msgstr ""
+
+#: src/code/sparc-svr4-vm.lisp
+msgid "Unaligned instruction?  offset=#x~X."
+msgstr ""
+
+#: src/code/sparc-svr4-vm.lisp
+msgid "Can't deal with CALL fixups, yet."
+msgstr ""
+
+#: src/code/sparc-svr4-vm.lisp
+msgid "XRS ID invalid but attempting to access double-float register ~d!"
+msgstr ""
+
+#: src/code/signal.lisp
+msgid "Emt instruction"
+msgstr ""
+
+#: src/code/signal.lisp
+msgid "Bad argument to system call"
+msgstr ""
+
+#: src/code/signal.lisp
+msgid "Process's lwps are blocked"
+msgstr ""
+
+#: src/code/debug-int.lisp
+msgid "no debug info: ~A:~A"
+msgstr ""
+
+#: src/code/debug-int.lisp
+msgid "find the PC"
+msgstr ""
+
+#: src/code/debug-int.lisp
+msgid "Local non-descriptor register access?"
+msgstr ""
+
+#: src/code/debug-int.lisp
+msgid "Local interior register access?"
+msgstr ""
+
+#: src/code/debug-int.lisp
+msgid "Breakpoint that nobody wants?"
+msgstr ""
+
+#: src/code/debug-int.lisp
+msgid "BREAKPOINT-DO-DISPLACED-INST returned?"
+msgstr ""
+
 #: src/compiler/sparc/parms.lisp
 msgid "Number of bits per word where a word holds one lisp descriptor."
 msgstr ""
diff --git a/src/i18n/locale/ko/LC_MESSAGES/cmucl-sparc-vm.po b/src/i18n/locale/ko/LC_MESSAGES/cmucl-sparc-vm.po
index 9eb9420..3e56861 100644
--- a/src/i18n/locale/ko/LC_MESSAGES/cmucl-sparc-vm.po
+++ b/src/i18n/locale/ko/LC_MESSAGES/cmucl-sparc-vm.po
@@ -15,6 +15,62 @@ msgstr ""
 "Content-Type: text/plain; charset=UTF-8\n"
 "Content-Transfer-Encoding: 8bit\n"
 
+#: src/code/sparc-svr4-vm.lisp
+msgid "Returns a string describing the type of the local machine."
+msgstr ""
+
+#: src/code/sparc-svr4-vm.lisp
+msgid "Returns a string describing the version of the local machine."
+msgstr ""
+
+#: src/code/sparc-svr4-vm.lisp
+msgid "Unaligned instruction?  offset=#x~X."
+msgstr ""
+
+#: src/code/sparc-svr4-vm.lisp
+msgid "Can't deal with CALL fixups, yet."
+msgstr ""
+
+#: src/code/sparc-svr4-vm.lisp
+msgid "XRS ID invalid but attempting to access double-float register ~d!"
+msgstr ""
+
+#: src/code/signal.lisp
+msgid "Emt instruction"
+msgstr ""
+
+#: src/code/signal.lisp
+msgid "Bad argument to system call"
+msgstr ""
+
+#: src/code/signal.lisp
+msgid "Process's lwps are blocked"
+msgstr ""
+
+#: src/code/debug-int.lisp
+msgid "no debug info: ~A:~A"
+msgstr ""
+
+#: src/code/debug-int.lisp
+msgid "find the PC"
+msgstr ""
+
+#: src/code/debug-int.lisp
+msgid "Local non-descriptor register access?"
+msgstr ""
+
+#: src/code/debug-int.lisp
+msgid "Local interior register access?"
+msgstr ""
+
+#: src/code/debug-int.lisp
+msgid "Breakpoint that nobody wants?"
+msgstr ""
+
+#: src/code/debug-int.lisp
+msgid "BREAKPOINT-DO-DISPLACED-INST returned?"
+msgstr ""
+
 #: src/compiler/sparc/parms.lisp
 msgid "Number of bits per word where a word holds one lisp descriptor."
 msgstr ""

commit 5b860d11a949ccf69d80f501bf911ccf29d09a3f
Author: Raymond Toy <toy.raymond at gmail.com>
Date:   Fri Feb 3 21:15:33 2012 -0800

    Add translation files for cmucl-ppc-vm.

diff --git a/src/i18n/locale/en at piglatin/LC_MESSAGES/cmucl-ppc-vm.po b/src/i18n/locale/en at piglatin/LC_MESSAGES/cmucl-ppc-vm.po
new file mode 100644
index 0000000..8a18696
--- /dev/null
+++ b/src/i18n/locale/en at piglatin/LC_MESSAGES/cmucl-ppc-vm.po
@@ -0,0 +1,39 @@
+#: src/code/ppc-vm.lisp
+msgid "Returns a string describing the type of the local machine."
+msgstr ""
+
+#: src/code/ppc-vm.lisp
+msgid "Returns a string describing the version of the local machine."
+msgstr ""
+
+#: src/code/ppc-vm.lisp
+msgid "Compute x*y-z with only one rounding operation"
+msgstr ""
+
+#: src/code/ppc-vm.lisp
+msgid "Compute x*y+z with only one rounding operation"
+msgstr ""
+
+#: src/code/debug-int.lisp
+msgid "no debug info: ~A:~A"
+msgstr ""
+
+#: src/code/debug-int.lisp
+msgid "find the PC"
+msgstr ""
+
+#: src/code/debug-int.lisp
+msgid "Local non-descriptor register access?"
+msgstr ""
+
+#: src/code/debug-int.lisp
+msgid "Local interior register access?"
+msgstr ""
+
+#: src/code/debug-int.lisp
+msgid "Breakpoint that nobody wants?"
+msgstr ""
+
+#: src/code/debug-int.lisp
+msgid "BREAKPOINT-DO-DISPLACED-INST returned?"
+msgstr ""
diff --git a/src/i18n/locale/ko/LC_MESSAGES/cmucl-ppc-vm.po b/src/i18n/locale/ko/LC_MESSAGES/cmucl-ppc-vm.po
new file mode 100644
index 0000000..8a18696
--- /dev/null
+++ b/src/i18n/locale/ko/LC_MESSAGES/cmucl-ppc-vm.po
@@ -0,0 +1,39 @@
+#: src/code/ppc-vm.lisp
+msgid "Returns a string describing the type of the local machine."
+msgstr ""
+
+#: src/code/ppc-vm.lisp
+msgid "Returns a string describing the version of the local machine."
+msgstr ""
+
+#: src/code/ppc-vm.lisp
+msgid "Compute x*y-z with only one rounding operation"
+msgstr ""
+
+#: src/code/ppc-vm.lisp
+msgid "Compute x*y+z with only one rounding operation"
+msgstr ""
+
+#: src/code/debug-int.lisp
+msgid "no debug info: ~A:~A"
+msgstr ""
+
+#: src/code/debug-int.lisp
+msgid "find the PC"
+msgstr ""
+
+#: src/code/debug-int.lisp
+msgid "Local non-descriptor register access?"
+msgstr ""
+
+#: src/code/debug-int.lisp
+msgid "Local interior register access?"
+msgstr ""
+
+#: src/code/debug-int.lisp
+msgid "Breakpoint that nobody wants?"
+msgstr ""
+
+#: src/code/debug-int.lisp
+msgid "BREAKPOINT-DO-DISPLACED-INST returned?"
+msgstr ""

commit e2e3b4a38a0d251edf2d7805a00a0b6baef2b4fd
Author: Raymond Toy <toy.raymond at gmail.com>
Date:   Fri Feb 3 21:00:32 2012 -0800

    Update.

diff --git a/src/i18n/locale/en at piglatin/LC_MESSAGES/cmucl.po b/src/i18n/locale/en at piglatin/LC_MESSAGES/cmucl.po
index 37c3afe..d876a5d 100644
--- a/src/i18n/locale/en at piglatin/LC_MESSAGES/cmucl.po
+++ b/src/i18n/locale/en at piglatin/LC_MESSAGES/cmucl.po
@@ -5501,13 +5501,16 @@ msgstr ""
 "  onnay-asecay-odifiablemay arschay."
 
 #: src/code/string.lisp
+#, fuzzy
 msgid ""
 "Given a string, returns a copy of the string with the first\n"
 "  character of each ``word'' converted to upper-case, and remaining\n"
-"  chars in the word converted to lower case. A ``word'' is defined\n"
-"  to be a string of case-modifiable characters delimited by\n"
-"  non-case-modifiable chars.  Casing is :simple or :full for\n"
-"  simple or full case conversion, respectively."
+"  chars in the word converted to lower case. Casing is :simple or\n"
+"  :full for simple or full case conversion, respectively.  If\n"
+"  Unicode-Word-Break is non-Nil, then the Unicode word-breaking\n"
+"  algorithm is used to determine the word boundaries.  Otherwise, A\n"
+"  ``word'' is defined to be a string of case-modifiable characters\n"
+"  delimited by non-case-modifiable chars.  "
 msgstr ""
 "Ivengay away ingstray, eturnsray away opycay ofway ethay ingstray ithway "
 "ethay irstfay\n"
@@ -5517,9 +5520,7 @@ msgstr ""
 "``ordway'' isway efinedday\n"
 "  otay ebay away ingstray ofway asecay-odifiablemay aracterschay elimitedday "
 "ybay\n"
-"  onnay-asecay-odifiablemay arschay.  Asingcay isway :implesay orway :ullfay "
-"orfay\n"
-"  implesay orway ullfay asecay onversioncay, espectivelyray."
+"  onnay-asecay-odifiablemay arschay."
 
 #: src/code/string.lisp
 msgid ""
@@ -13052,6 +13053,18 @@ msgstr ""
 "Ethay externalway-ormatfay orfay encodingway ilenamesfay isway alreadyway "
 "etsay."
 
+#: src/code/extfmts.lisp
+msgid ""
+"UTF-8 is a variable-length character encoding for Unicode.  By\n"
+"default, illegal input sequences are replaced by the Unicode\n"
+"replacement character."
+msgstr ""
+"UTF-8 isway away ariablevay-engthlay aracterchay encodingway orfay "
+"Unicodeway.  Ybay\n"
+"efaultday, illegalway inputway equencessay areway eplacedray ybay ethay "
+"Unicodeway\n"
+"eplacementray aracterchay."
+
 #: src/code/fd-stream.lisp
 msgid ""
 "List of available buffers.  Each buffer is an sap pointing to\n"
@@ -30437,16 +30450,25 @@ msgstr ""
 "eplacedray ybay ethay\n"
 "Unicodeway eplacementray aracterchay."
 
-msgid ""
-"UTF-8 is a variable-length character encoding for Unicode.  By\n"
-"default, illegal input sequences are replaced by the Unicode\n"
-"replacement character."
-msgstr ""
-"UTF-8 isway away ariablevay-engthlay aracterchay encodingway orfay "
-"Unicodeway.  Ybay\n"
-"efaultday, illegalway inputway equencessay areway eplacedray ybay ethay "
-"Unicodeway\n"
-"eplacementray aracterchay."
+#~ msgid ""
+#~ "Given a string, returns a copy of the string with the first\n"
+#~ "  character of each ``word'' converted to upper-case, and remaining\n"
+#~ "  chars in the word converted to lower case. A ``word'' is defined\n"
+#~ "  to be a string of case-modifiable characters delimited by\n"
+#~ "  non-case-modifiable chars.  Casing is :simple or :full for\n"
+#~ "  simple or full case conversion, respectively."
+#~ msgstr ""
+#~ "Ivengay away ingstray, eturnsray away opycay ofway ethay ingstray ithway "
+#~ "ethay irstfay\n"
+#~ "  aracterchay ofway eachway ``ordway'' onvertedcay otay upperway-asecay, "
+#~ "andway emainingray\n"
+#~ "  arschay inway ethay ordway onvertedcay otay owerlay asecay. Away "
+#~ "``ordway'' isway efinedday\n"
+#~ "  otay ebay away ingstray ofway asecay-odifiablemay aracterschay "
+#~ "elimitedday ybay\n"
+#~ "  onnay-asecay-odifiablemay arschay.  Asingcay isway :implesay orway :"
+#~ "ullfay orfay\n"
+#~ "  implesay orway ullfay asecay onversioncay, espectivelyray."
 
 #~ msgid ""
 #~ "Convert String to octets using the specified External-format.  The\n"
diff --git a/src/i18n/locale/ko/LC_MESSAGES/cmucl.po b/src/i18n/locale/ko/LC_MESSAGES/cmucl.po
index 12d0955..db37457 100644
--- a/src/i18n/locale/ko/LC_MESSAGES/cmucl.po
+++ b/src/i18n/locale/ko/LC_MESSAGES/cmucl.po
@@ -3894,10 +3894,12 @@ msgstr ""
 msgid ""
 "Given a string, returns a copy of the string with the first\n"
 "  character of each ``word'' converted to upper-case, and remaining\n"
-"  chars in the word converted to lower case. A ``word'' is defined\n"
-"  to be a string of case-modifiable characters delimited by\n"
-"  non-case-modifiable chars.  Casing is :simple or :full for\n"
-"  simple or full case conversion, respectively."
+"  chars in the word converted to lower case. Casing is :simple or\n"
+"  :full for simple or full case conversion, respectively.  If\n"
+"  Unicode-Word-Break is non-Nil, then the Unicode word-breaking\n"
+"  algorithm is used to determine the word boundaries.  Otherwise, A\n"
+"  ``word'' is defined to be a string of case-modifiable characters\n"
+"  delimited by non-case-modifiable chars.  "
 msgstr ""
 
 #: src/code/string.lisp
@@ -9137,6 +9139,13 @@ msgstr ""
 msgid "The external-format for encoding filenames is already set."
 msgstr ""
 
+#: src/code/extfmts.lisp
+msgid ""
+"UTF-8 is a variable-length character encoding for Unicode.  By\n"
+"default, illegal input sequences are replaced by the Unicode\n"
+"replacement character."
+msgstr ""
+
 #: src/code/fd-stream.lisp
 msgid ""
 "List of available buffers.  Each buffer is an sap pointing to\n"
@@ -21287,9 +21296,3 @@ msgid ""
 "By default, illegal inputs and illegal outputs are replaced by the\n"
 "Unicode replacement character."
 msgstr ""
-
-msgid ""
-"UTF-8 is a variable-length character encoding for Unicode.  By\n"
-"default, illegal input sequences are replaced by the Unicode\n"
-"replacement character."
-msgstr ""

commit ebf5d59dc76245252f0ee206b23b713894fb9f16
Author: Raymond Toy <toy.raymond at gmail.com>
Date:   Fri Feb 3 20:59:04 2012 -0800

    Update from current sources.

diff --git a/src/i18n/locale/cmucl.pot b/src/i18n/locale/cmucl.pot
index fe5e876..361d385 100644
--- a/src/i18n/locale/cmucl.pot
+++ b/src/i18n/locale/cmucl.pot
@@ -3893,10 +3893,12 @@ msgstr ""
 msgid ""
 "Given a string, returns a copy of the string with the first\n"
 "  character of each ``word'' converted to upper-case, and remaining\n"
-"  chars in the word converted to lower case. A ``word'' is defined\n"
-"  to be a string of case-modifiable characters delimited by\n"
-"  non-case-modifiable chars.  Casing is :simple or :full for\n"
-"  simple or full case conversion, respectively."
+"  chars in the word converted to lower case. Casing is :simple or\n"
+"  :full for simple or full case conversion, respectively.  If\n"
+"  Unicode-Word-Break is non-Nil, then the Unicode word-breaking\n"
+"  algorithm is used to determine the word boundaries.  Otherwise, A\n"
+"  ``word'' is defined to be a string of case-modifiable characters\n"
+"  delimited by non-case-modifiable chars.  "
 msgstr ""
 
 #: src/code/string.lisp

-----------------------------------------------------------------------

Summary of changes:
 src/i18n/locale/cmucl.pot                          |   10 ++--
 .../LC_MESSAGES/cmucl-ppc-vm.po}                   |   18 ------
 .../en at piglatin/LC_MESSAGES/cmucl-sparc-vm.po      |   56 ++++++++++++++++++++
 src/i18n/locale/en at piglatin/LC_MESSAGES/cmucl.po   |   56 ++++++++++++++------
 .../LC_MESSAGES/cmucl-ppc-vm.po}                   |   18 ------
 src/i18n/locale/ko/LC_MESSAGES/cmucl-sparc-vm.po   |   56 ++++++++++++++++++++
 src/i18n/locale/ko/LC_MESSAGES/cmucl.po            |   23 +++++----
 src/lisp/interrupt.c                               |    2 +-
 8 files changed, 171 insertions(+), 68 deletions(-)
 copy src/i18n/locale/{cmucl-ppc-vm.pot => en at piglatin/LC_MESSAGES/cmucl-ppc-vm.po} (66%)
 copy src/i18n/locale/{cmucl-ppc-vm.pot => ko/LC_MESSAGES/cmucl-ppc-vm.po} (66%)


hooks/post-receive
-- 
CMU Common Lisp




More information about the cmucl-cvs mailing list