- (with-array-data ((seq seq1)
- (start (min start1 start2))
- (end (max end1 end2)))
- (declare (type (simple-array ,et1 1) seq))
- (if (<= start1 start2)
- (let ((index2 start2))
- (declare (type index index2))
- (loop for index1 of-type index
- from start1 below effective-end1 do
- (setf (aref seq index1)
- (aref seq index2))
- (incf index2)))
- (let ((index2 (1- end2)))
- (declare (type (integer -2 #.most-positive-fixnum) index2))
- (loop for index1 of-type index-or-minus-1
- from (1- effective-end1) downto start1 do
- (setf (aref seq index1)
- (aref seq index2))
- (decf index2)))))
- (with-array-data ((seq1 seq1) (start1 start1) (end1 end1))
- (declare (type (simple-array ,et1 1) seq1))
- (with-array-data ((seq2 seq2) (start2 start2) (end2 end2))
- (declare (type (simple-array ,et2 1) seq2))
+ (with-array-data ((seq seq1)
+ (start (min start1 start2))
+ (end (max end1 end2)))
+ (declare (type (simple-array ,et1 1) seq))
+ (if (<= start1 start2)
+ (let ((index2 start2))
+ (declare (type index index2))
+ (loop for index1 of-type index
+ from start1 below effective-end1 do
+ (setf (aref seq index1)
+ (aref seq index2))
+ (incf index2)))
+ (let ((index2 (1- end2)))
+ (declare (type (integer -2 #.most-positive-fixnum) index2))
+ (loop for index1 of-type index-or-minus-1
+ from (1- effective-end1) downto start1 do
+ (setf (aref seq index1)
+ (aref seq index2))
+ (decf index2)))))
+ (with-array-data ((seq1 seq1) (start1 start1) (end1 end1))
+ (declare (type (simple-array ,et1 1) seq1))
+ (with-array-data ((seq2 seq2) (start2 start2) (end2 end2))
+ (declare (type (simple-array ,et2 1) seq2))