[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)
,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 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)
,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 at 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
More information about the cmucl-cvs
mailing list