[cmucl-cvs] [git] CMU Common Lisp branch master updated. snapshot-2012-04-10-g994726e

Raymond Toy rtoy at common-lisp.net
Wed Apr 25 05:09:47 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  994726e69e6dd8c05c39344754582a6ea7425e5d (commit)
       via  7f2058c9cb6ed81df0e2e22863797f9c0a3196e5 (commit)
       via  ceba057cbebe6ba29f4a7c2b12a8570d874ec571 (commit)
      from  b040afc230f3b1647620756c64f462d2570c2ae7 (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 994726e69e6dd8c05c39344754582a6ea7425e5d
Author: Raymond Toy <toy.raymond at gmail.com>
Date:   Tue Apr 24 22:09:39 2012 -0700

    Fix typo in iso8859-2 external format.
     * src/pcl/simple-streams/external-formats/iso8859-2.lisp:
       * Fix typo.
     * src/general-info/release-20d.txt:
       * Update.

diff --git a/src/general-info/release-20d.txt b/src/general-info/release-20d.txt
index df11c01..2368f89 100644
--- a/src/general-info/release-20d.txt
+++ b/src/general-info/release-20d.txt
@@ -64,6 +64,9 @@ New in this release:
     * The UTF-16-BE and UTF-16-LE external formats were returning the
       incorrect number of octets when surrogates pairs were decoded.
       This confuses the stream buffering code.
+    * Fix typo in ISO8859-2 external format that caused it not to work
+      correctly.  This type potentially also caused failures for all other
+      external formats that were based on ISO8859-2.
   * Trac Tickets:
     * #50: Print/read error with make-pathname.
diff --git a/src/pcl/simple-streams/external-formats/iso8859-2.lisp b/src/pcl/simple-streams/external-formats/iso8859-2.lisp
index c74d969..3557415 100644
--- a/src/pcl/simple-streams/external-formats/iso8859-2.lisp
+++ b/src/pcl/simple-streams/external-formats/iso8859-2.lisp
@@ -39,7 +39,7 @@ character and illegal outputs are replaced by a question mark.")
     `(,output (if (< ,code 160)
 		  (let ((,present (get-inverse ,itable ,code)))
-		    (if ,code
+		    (if ,present
 			(+ (the (unsigned-byte 7) ,present) 160)
 			(if ,error

commit 7f2058c9cb6ed81df0e2e22863797f9c0a3196e5
Author: Raymond Toy <toy.raymond at gmail.com>
Date:   Tue Apr 24 22:05:35 2012 -0700

    Correct the type declarations for the state (for BOM).

diff --git a/src/pcl/simple-streams/external-formats/utf-16.lisp b/src/pcl/simple-streams/external-formats/utf-16.lisp
index d197aea..c8ad61a 100644
--- a/src/pcl/simple-streams/external-formats/utf-16.lisp
+++ b/src/pcl/simple-streams/external-formats/utf-16.lisp
@@ -52,7 +52,7 @@ Unicode replacement character.")
 			    ;; Big endian (including BOM, if any)
 			    (+ (* 256 ,c1) ,c2)))
 		 (,wd 2))
-	    (declare (type (integer 0 2) ,st)
+	    (declare (type (member 0 -2 2) ,st)
 		     (type lisp:codepoint ,code))
 	    ;; Note that if BOM is read, WD will be 2 but 4 octets have
 	    ;; actually been read: this is intentional - the returned
diff --git a/src/pcl/simple-streams/external-formats/utf-32.lisp b/src/pcl/simple-streams/external-formats/utf-32.lisp
index c0fa820..2520f4b 100644
--- a/src/pcl/simple-streams/external-formats/utf-32.lisp
+++ b/src/pcl/simple-streams/external-formats/utf-32.lisp
@@ -62,8 +62,9 @@ Unicode replacement character.")
 			       (ash ,c3  8)
 		 (,wd 4))
-	    (declare (type (integer 0 2) ,st)
+	    (declare (type (member 0 -4 4) ,st)
 		     (type (unsigned-byte 8) ,c1 ,c2 ,c3 ,c4)
+		     (type (unsigned-byte 32) ,code)
 		     (optimize (speed 3)))
 	    (cond ((or (>= ,code lisp:codepoint-limit)
 		       (lisp::surrogatep ,code))

commit ceba057cbebe6ba29f4a7c2b12a8570d874ec571
Author: Raymond Toy <toy.raymond at gmail.com>
Date:   Sat Apr 21 14:06:44 2012 -0700

    Fix some typos, change url to cmucl.org and add url to

diff --git a/src/general-info/release-20d.txt b/src/general-info/release-20d.txt
index fe9baaf..df11c01 100644
--- a/src/general-info/release-20d.txt
+++ b/src/general-info/release-20d.txt
@@ -24,7 +24,7 @@ New in this release:
     * Added a new contrib, "contrib-packed-sse2" to allow packed
       operations ala SSE2.  Support for some packed sse2 operations
       like multiply, divide, and shuffle for both packed singles and
-      doubles.  All operatios are done on top of (complex
+      doubles.  All operations are done on top of (complex
       double-float) numbers.  Utility functions are provided to set
       and access these packed numbers.
@@ -53,9 +53,9 @@ New in this release:
     * The source distribution now includes the scripts from the bin
       directory, which was previously missing.
     * The stack needs to be 16-byte aligned on Darwin.
-    * ldb no longer prints prompts forever when EOF is reached.
+    * LDB no longer prints prompts forever when EOF is reached.
     * LISP:UNICODE-COMPLETE now longer signals an error if the prefix
-      isn't a prefix of the name of any unicode character.  Nil is
+      isn't a prefix of the name of any Unicode character.  Nil is
       returned instead.
     * Some VOP costs were incorrect which prevented the fast complex
       double-float multiplier from being used when sse3 is available. 
@@ -87,7 +87,8 @@ New in this release:
 This release is not binary compatible with code compiled using CMUCL
 20c; you will need to recompile FASL files. 
-See <URL:http://www.cons.org/cmucl/> for download information,
+See <URL:http://www.cmucl.org> or
+<URL:http://trac.common-lisp.net/cmucl> for download information,
 guidelines on reporting bugs, and mailing list details.


Summary of changes:
 src/general-info/release-20d.txt                   |   12 ++++++++----
 .../simple-streams/external-formats/iso8859-2.lisp |    2 +-
 .../simple-streams/external-formats/utf-16.lisp    |    2 +-
 .../simple-streams/external-formats/utf-32.lisp    |    3 ++-
 4 files changed, 12 insertions(+), 7 deletions(-)

CMU Common Lisp

More information about the cmucl-cvs mailing list