[Openmcl-cvs-notifications] r10777 - /trunk/source/level-0/l0-array.lisp

[rme at clozure.com]

Author: rme
Date: Tue Sep 16 19:47:06 2008
New Revision: 10777

Log:
Out-of-line %scharcode: character codes aren't 8 bits long any more.

Modified:
    trunk/source/level-0/l0-array.lisp

Modified: trunk/source/level-0/l0-array.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-0/l0-array.lisp (original)
+++ trunk/source/level-0/l0-array.lisp Tue Sep 16 19:47:06 2008
@@ -645,7 +645,7 @@
     (if (=3D typecode target::subtag-simple-base-string)
       (locally
         (declare (optimize (speed 3) (safety 0)))
-        (aref (the (simple-array (unsigned-byte 8) (*)) s) i))
+        (aref (the (simple-array (unsigned-byte 32) (*)) s) i))
         (report-bad-arg s 'simple-string))))
 =

 =