1.0.4.39: get rid of hardcoded mutex and spinlock slot indexes
[sbcl.git] / 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