Changeset 8395

Timestamp:

Feb 2, 2008, 6:46:05 PM (17 years ago)

Author:

Gary Byers

Message:

Fix typo in error message in %COUNT-CHARACTERS-IN-OCTET-VECTOR.

File:

• trunk/source/level-1/l1-unicode.lisp (modified) (1 diff)

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

@@ -4718 +4718 @@
 (defun %count-characters-in-octet-vector (vector start end encoding)
   (unless (= (typecode vector) target::subtag-u8-vector)
-    (report-bad-arg vector '(simple-array (unsgigned-byte 8) (*))))
+    (report-bad-arg vector '(simple-array (unsigned-byte 8) (*))))
   (funcall (character-encoding-length-of-vector-encoding-function encoding)
            vector