1 ;;;; (See the comments at the head of the file compiler-extras.lisp.)
5 (declaim (optimize (speed 3) (space 1)))
7 ;;; FIXME: should DEFUN REPLACE in terms of same expansion as
11 (cond ((and (typep seq1 'simple-vector)
12 (typep seq2 'simple-vector))
13 (%replace-vector-vector ..))
14 ((and (typep seq1 'simple-string)
15 (typep seq2 'simple-string))
16 (%replace-vector-vector ..))