[Openmcl-cvs-notifications] r15253 - /trunk/source/level-1/l1-unicode.lisp

[gb at clozure.com]

Author: gb
Date: Thu Mar 15 15:02:06 2012
New Revision: 15253

Log:
Ensure that we call CHARACTER-ENCODING-NAME on a character encoding (not
the name of one ...) in NOTE-STREAM-DECODING-PROBLEM.

Modified:
    trunk/source/level-1/l1-unicode.lisp

Modified: trunk/source/level-1/l1-unicode.lisp
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D=3D=3D
--- trunk/source/level-1/l1-unicode.lisp (original)
+++ trunk/source/level-1/l1-unicode.lisp Thu Mar 15 15:02:06 2012
@@ -160,7 +160,7 @@
          (position (stream-position source))
          (encoding-name
           (character-encoding-name
-           (external-format-character-encoding (stream-external-format sou=
rce)))))
+           (lookup-character-encoding (external-format-character-encoding =
(stream-external-format source))))))
     (signal (make-condition 'decoding-problem
                             :source source
                             :position position