From: Christophe Rhodes <csr21@cantab.net>
Date: Tue, 3 Nov 2009 10:42:18 +0000 (+0000)
Subject: 1.0.32.11: fix octets portion of latin-2/iso-8859-2 external-format
X-Git-Url: http://repo.macrolet.net/gitweb/?a=commitdiff_plain;h=e2a6201926da936397edc3d7f615c22e1f9cac5b;p=sbcl.git

1.0.32.11: fix octets portion of latin-2/iso-8859-2 external-format

Typo in the external format definition.  Include a test case; reported
by Attila Lendvai (in lp #471689)
---

diff --git a/NEWS b/NEWS
index 2ff282e..830a6e4 100644
--- a/NEWS
+++ b/NEWS
@@ -7,6 +7,9 @@ changes relative to sbcl-1.0.32:
   * new feature: SB-INTROSPECT:WHO-SPECIALIZES-GENERALLY to get a list of
     definitions for methods specializing on the passed class itself, or on
     subclasses of it.
+  * fixes and improvements related to external formats:
+    ** fix a typo preventing conversion of strings into octet vectors
+       in the latin-2 encoding.  (reported by Attila Lendvai)
   * bug fix: restore buildability on the MIPS platform.  (regression from
     1.0.30.38, reported by Samium Gromoff)
   * bug fix: inspecting closures is less likely to fail with a type error.
diff --git a/src/code/external-formats/enc-iso.lisp b/src/code/external-formats/enc-iso.lisp
index db20263..eacffb4 100644
--- a/src/code/external-formats/enc-iso.lisp
+++ b/src/code/external-formats/enc-iso.lisp
@@ -100,7 +100,7 @@
           (code-char code)
           (external-format-decoding-error stream byte)))
     iso-8859-2->string-aref
-    string->iso8859-2) ;; TODO -- error check
+    string->iso-8859-2) ;; TODO -- error check
 
 (define-unibyte-mapper iso-8859-3->code-mapper code->iso-8859-3-mapper
   (#xA1 #x0126) ; LATIN CAPITAL LETTER H WITH STROKE
diff --git a/tests/octets.pure.lisp b/tests/octets.pure.lisp
index c07b82b..192f0ee 100644
--- a/tests/octets.pure.lisp
+++ b/tests/octets.pure.lisp
@@ -230,3 +230,8 @@
                                       :external-format :utf-8)))
 (assert (equalp #() (string-to-octets (make-array 5 :element-type nil)
                                       :start 3 :end 3 :external-format :utf-8)))
+
+;;; whoops: the iso-8859-2 format referred to an undefined symbol.
+#+sb-unicode
+(assert (equalp #(251) (string-to-octets (string (code-char 369))
+                                         :external-format :latin-2)))
diff --git a/version.lisp-expr b/version.lisp-expr
index eb64e02..6498578 100644
--- a/version.lisp-expr
+++ b/version.lisp-expr
@@ -17,4 +17,4 @@
 ;;; checkins which aren't released. (And occasionally for internal
 ;;; versions, especially for internal versions off the main CVS
 ;;; branch, it gets hairier, e.g. "0.pre7.14.flaky4.13".)
-"1.0.32.10"
+"1.0.32.11"