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