From 236396d8493829ba75607f3a5c54af708ff35f5c Mon Sep 17 00:00:00 2001
From: Raymond Toy <rtoy@google.com>
Date: Wed, 18 Apr 2012 15:02:31 -0700
Subject: [PATCH] Fix typo in external format for utf-32.

 utf-32.lisp::
 * Fix typo.

 release-20d.txt::
 * Update.
---
 src/general-info/release-20d.txt                    | 2 ++
 src/pcl/simple-streams/external-formats/utf-32.lisp | 2 +-
 2 files changed, 3 insertions(+), 1 deletion(-)

diff --git a/src/general-info/release-20d.txt b/src/general-info/release-20d.txt
index fc525cc13..176d102ce 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 469327e48..1fd3cf1d6 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
-- 
GitLab