[cmucl-commit] [git] CMU Common Lisp branch master updated. snapshot-2012-04-1-g236396d

[Raymond Toy]

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  236396d8493829ba75607f3a5c54af708ff35f5c (commit)
      from  3b9e43c17458d68ccf262530c34459eb007d58e1 (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 236396d8493829ba75607f3a5c54af708ff35f5c
Author: Raymond Toy <rtoy at google.com>
Date:   Wed Apr 18 15:02:31 2012 -0700

    Fix typo in external format for utf-32.
    
     utf-32.lisp::
     * Fix typo.
    
     release-20d.txt::
     * Update.

diff --git a/src/general-info/release-20d.txt b/src/general-info/release-20d.txt
index fc525cc..176d102 100644
--- a/src/general-info/release-20d.txt
+++ b/src/general-info/release-20d.txt
@@ -57,6 +57,8 @@ New in this release:
       returned instead.
     * Some VOP costs were incorrect which prevented the fast complex
       double-float multiplier from being used when sse3 is available. 
+    * External format for UTF-32 was generating an error when
+      converting octets to a string.
 
   * Trac Tickets:
     * #50: Print/read error with make-pathname.
diff --git a/src/pcl/simple-streams/external-formats/utf-32.lisp b/src/pcl/simple-streams/external-formats/utf-32.lisp
index 469327e..1fd3cf1 100644
--- a/src/pcl/simple-streams/external-formats/utf-32.lisp
+++ b/src/pcl/simple-streams/external-formats/utf-32.lisp
@@ -38,7 +38,7 @@ By default, illegal inputs and illegal outputs are replaced by the
 Unicode replacement character.")
   ()
 
-  (octets-to-code (state input unput code error c1 c2 c3 c4 st wd)
+  (octets-to-code (state input unput error code c1 c2 c3 c4 st wd)
     `(block nil
        (when (null ,state) (setf ,state 0))
        (tagbody

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

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


hooks/post-receive
-- 
CMU Common Lisp