mirror of
git://git.code.sf.net/p/sbcl/sbcl
synced 2026-09-10 07:26:40 -04:00
4898ef32c6
another slice of whitespace canonicalization (Anyone who ends up here with "cvs annotate" probably wants to look at the "tabby" tagged version.)
20 lines
515 B
Common Lisp
20 lines
515 B
Common Lisp
;;;; (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
|
|
..)))
|
|
|