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@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) ,code (let ((,present (get-inverse ,itable ,code))) - (if ,code + (if ,present (+ (the (unsigned-byte 7) ,present) 160) (if ,error (locally commit 7f2058c9cb6ed81df0e2e22863797f9c0a3196e5 Author: Raymond Toy <toy.raymond@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) ,c4))) (,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@gmail.com> Date: Sat Apr 21 14:06:44 2012 -0700 Fix some typos, change url to cmucl.org and add url to trac.common-lisp.net/cmucl. 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(-) hooks/post-receive -- CMU Common Lisp