/usr/share/sbcl-source/contrib/code-extras.lisp is in sbcl-source 2:1.0.57.0-2.
This file is owned by root:root, with mode 0o644.
The actual contents of the file can be viewed below.
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 | ;;;; (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
..)))
|