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

diff --git a/make-host-2.sh b/make-host-2.sh
index b2aa8d5..8b0979a 100644
--- a/make-host-2.sh
+++ b/make-host-2.sh
@@ -102,9 +102,8 @@ $SBCL_XC_HOST <<-'EOF' || exit 1
         ;; 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.
-        
-	(when (find :sb-show *shebang-features*)
+	;; with the system. (See slam.sh for an example.)
+	(when (find :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")
 	  )