blob: c81b365334d171de2621f09e18ebd059a2039a85 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
|
;;;; (See the comments at the head of the file compiler-extras.lisp.)
(in-package "SB-IMPL")
(declaim (optimize (speed 3) (space 1)))
;;; FIXME: should DEFUN REPLACE in terms of same expansion as
;;; DEFTRANSFORM
#+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
..)))
|