X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=slam.sh;h=202c8aa29d827e71695efed5e52ceb28108e8a48;hb=HEAD;hp=63108f3ead716e3d334c0b2586318a58248a8c02;hpb=9e4ba79747ea69dc33ef9f6014571dd098d1568d;p=sbcl.git

diff --git a/slam.sh b/slam.sh
index 63108f3..202c8aa 100644
--- a/slam.sh
+++ b/slam.sh
@@ -79,7 +79,7 @@ case "$HOST_TYPE" in
            INIT="-noinit"
            CORE="-core"
            ;;
-    sbcl)  LISP="sbcl"
+    sbcl)  LISP="${XC_LISP:-sbcl}"
            INIT="--no-sysinit --no-userinit"
            CORE="--core"
            ;;
@@ -97,7 +97,7 @@ case "$HOST_TYPE" in
            exit 1
 esac
 
-SBCL_XC_HOST="$LISP $INIT"
+SBCL_XC_HOST="$LISP ${XC_CORE:+$CORE $XC_CORE} $INIT"
 export SBCL_XC_HOST
 
 # (We don't do make-host-1.sh at all. Hopefully nothing relevant has