Changeset 5117

Timestamp:

Sep 5, 2006, 4:08:36 AM (18 years ago)

Author:

Gary Byers

Message:

Handle 32-bit strings in %UVECTOR-REPLACE.

File:

• trunk/ccl/level-0/l0-array.lisp (modified) (2 diffs)

trunk/ccl/level-0/l0-array.lisp

@@ -410 +410 @@
     ((#.target::subtag-s8-vector
       #.target::subtag-u8-vector
-      #.target::subtag-simple-base-string)
+      #+target-8-bit-chars #.target::subtag-simple-base-string)
      (%copy-ivector-to-ivector source
                                source-start
@@ -426 +426 @@
       #.target::subtag-u32-vector
       #.target::subtag-single-float-vector
+      #-target-8-bit-chars #.target::subtag-simple-base-string
       #+32-bit-target #.target::subtag-fixnum-vector)
      (%copy-ivector-to-ivector source