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 (file)
--- 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 (file)
--- 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 (file)
--- 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 (file)
--- 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"