X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=make-host-2.sh;h=dd6751e2278e19298d6d446fe89a08619fb077dc;hb=aa2dc9529460ea0d9c99998dc87283fc1a43e808;hp=8b0979a1386b57b9bb05a2edd799b98868e0bdbc;hpb=b19093fa94d6e1785abee99c35c9a610e8777671;p=sbcl.git

diff --git a/make-host-2.sh b/make-host-2.sh
index 8b0979a..dd6751e 100644
--- a/make-host-2.sh
+++ b/make-host-2.sh
@@ -50,7 +50,7 @@ $SBCL_XC_HOST <<-'EOF' || exit 1
 	(load "src/cold/defun-load-or-cload-xcompiler.lisp")
 	(load-or-cload-xcompiler #'host-load-stem)
         (defun proclaim-target-optimization ()
-          (let ((debug (if (find :sb-show *shebang-features*) 2 1)))
+          (let ((debug (if (position :sb-show *shebang-features*) 2 1)))
 	    (sb-xc:proclaim `(optimize (compilation-speed 1)
 	                               (debug ,debug)
 				       (sb!ext:inhibit-warnings 2)
@@ -96,14 +96,14 @@ $SBCL_XC_HOST <<-'EOF' || exit 1
         ;; Let's check that the type system was reasonably sane. (It's
 	;; easy to spend a long time wandering around confused trying
 	;; to debug cold init if it wasn't.)
-	(when (find :sb-test *shebang-features*)
+	(when (position :sb-test *shebang-features*)
 	  (load "tests/type.after-xc.lisp"))
 	;; If you're experimenting with the system under a
         ;; cross-compilation host which supports CMU-CL-style SAVE-LISP,
         ;; this can be a good time to run it. The resulting core isn't
 	;; used in the normal build, but can be handy for experimenting
 	;; with the system. (See slam.sh for an example.)
-	(when (find :sb-after-xc-core *shebang-features*)
+	(when (position :sb-after-xc-core *shebang-features*)
           #+cmu (ext:save-lisp "output/after-xc.core" :load-init-file nil)
           #+sbcl (sb-ext:save-lisp-and-die "output/after-xc.core")
 	  )