#+nil
(defun replace (..)
(cond ((and (typep seq1 'simple-vector)
- (typep seq2 'simple-vector))
- (%replace-vector-vector ..))
- ((and (typep seq1 'simple-string)
- (typep seq2 'simple-string))
- (%replace-vector-vector ..))
- (t
- ..)))
+ (typep seq2 'simple-vector))
+ (%replace-vector-vector ..))
+ ((and (typep seq1 'simple-string)
+ (typep seq2 'simple-string))
+ (%replace-vector-vector ..))
+ (t
+ ..)))