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

[gb at clozure.com]

Author: gb
Date: Fri Feb 22 21:49:37 2008
New Revision: 8573

Log:
8-bit-fixed-witdh-length-of-vector-encoding: second return value when
indices valid should be end, not length.
%COUNT-CHARACTERS-IN-OCTET-VECTOR: last arg should be end index, not
length.  Fixes reported cases in ticket:249, but there may be other
inconsistencies in other encodings.

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 Fri Feb 22 21:49:37 2008
@@ -177,7 +177,7 @@
 (defun 8-bit-fixed-width-length-of-vector-encoding (vector start end)
   (declare (ignore vector))
   (if (>=3D end start)
-    (values (- end start) (- end start))
+    (values (- end start) end)
     (values 0 0)))
 =

 (defun 8-bit-fixed-width-length-of-memory-encoding (pointer noctets start)
@@ -4721,7 +4721,7 @@
   (funcall (character-encoding-length-of-vector-encoding-function encoding)
            vector
            start
-           (- end start)))
+           end))
                                          =

 =

 (defun decode-string-from-octets (vector &key