Changeset 5121

Timestamp:

Sep 5, 2006, 4:14:41 AM (18 years ago)

Author:

Gary Byers

Message:

SIMPLE-1D-ARRAY-SUBSEQ: handle new strings.

File:

• trunk/ccl/lib/sequences.lisp (modified) (2 diffs)

trunk/ccl/lib/sequences.lisp

@@ -138 +138 @@
       (%copy-gvector-to-gvector src start dest 0 n)
       (ecase typecode
-        ((#.target::subtag-simple-base-string
+        ((#+target-8-bit-chars #.target::subtag-simple-base-string
           #.target::subtag-s8-vector
           #.target::subtag-u8-vector)
@@ -152 +152 @@
           #.target::subtag-u32-vector
           #.target::subtag-single-float-vector
-          #+32-bit-target #.target::subtag-fixnum-vector)
+          #+32-bit-target #.target::subtag-fixnum-vector
+          #-target-8-bit-chars #.target::subtag-simple-base-string)
          (%copy-ivector-to-ivector src
                                    (the fixnum (ash start 2))