Changeset 16739


Ignore:
Timestamp:
May 20, 2016, 12:44:56 AM (5 years ago)
Author:
gb
Message:

in REPLACE. don't call %UVECTOR-REPLCE unless the source sequence is
a SIMPLE-ARRAY. Fixes ticket:1359 in the trunk.

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/source/lib/sequences.lisp

    r16685 r16739  
    330330           (n (- source-end source-start)))
    331331      (if (and (not (listp source-sequence))
     332               (simple-array-p source-sequence)
    332333               (= (the fixnum (- target-end target-start)) n)
    333334               (= typecode (typecode target-sequence)))
Note: See TracChangeset for help on using the changeset viewer.