From 994726e69e6dd8c05c39344754582a6ea7425e5d Mon Sep 17 00:00:00 2001
From: Raymond Toy <toy.raymond@gmail.com>
Date: Tue, 24 Apr 2012 22:09:39 -0700
Subject: [PATCH] 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.
---
 src/general-info/release-20d.txt                       | 3 +++
 src/pcl/simple-streams/external-formats/iso8859-2.lisp | 2 +-
 2 files changed, 4 insertions(+), 1 deletion(-)

diff --git a/src/general-info/release-20d.txt b/src/general-info/release-20d.txt
index df11c0183..2368f894c 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 c74d9691e..3557415c9 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
-- 
GitLab