Skip to content
Snippets Groups Projects
Commit 994726e6 authored by Raymond Toy's avatar Raymond Toy
Browse files

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.
parent 7f2058c9
No related branches found
No related tags found
No related merge requests found
...@@ -64,6 +64,9 @@ New in this release: ...@@ -64,6 +64,9 @@ New in this release:
* The UTF-16-BE and UTF-16-LE external formats were returning the * The UTF-16-BE and UTF-16-LE external formats were returning the
incorrect number of octets when surrogates pairs were decoded. incorrect number of octets when surrogates pairs were decoded.
This confuses the stream buffering code. 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: * Trac Tickets:
* #50: Print/read error with make-pathname. * #50: Print/read error with make-pathname.
......
...@@ -39,7 +39,7 @@ character and illegal outputs are replaced by a question mark.") ...@@ -39,7 +39,7 @@ character and illegal outputs are replaced by a question mark.")
`(,output (if (< ,code 160) `(,output (if (< ,code 160)
,code ,code
(let ((,present (get-inverse ,itable ,code))) (let ((,present (get-inverse ,itable ,code)))
(if ,code (if ,present
(+ (the (unsigned-byte 7) ,present) 160) (+ (the (unsigned-byte 7) ,present) 160)
(if ,error (if ,error
(locally (locally
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Please register or to comment