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