contrib/code-extras.lisp

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