Changeset 7307

Timestamp:

Sep 26, 2007, 7:13:09 PM (14 years ago)

Author:

palter

Message:

Allow CCL::DECODE-STRING-FROM-OCTETS to work on non-simple vectors

File:

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

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

@@ -4591 +4591 @@
                                          external-format
                                          (string nil string-p))
+  (setq end (check-sequence-bounds vector start end))
   (unless (= (typecode vector) target::subtag-u8-vector)
-    (report-bad-arg vector '(simple-array (unsgigned-byte 8) (*))))
-  (setq end (check-sequence-bounds vector start end))
+    (multiple-value-bind (array offset)
+        (array-data-and-offset vector)
+      (unless (= (typecode array) target::subtag-u8-vector)
+        (report-bad-arg vector '(array (unsgigned-byte 8) (*))))
+      (setq vector array
+            start (+ start offset)
+            end (+ end offset))))
   (let* ((encoding (get-character-encoding
                     (external-format-character-encoding