X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=slam.sh;h=202c8aa29d827e71695efed5e52ceb28108e8a48;hb=HEAD;hp=820676755614162e05b69ed99dcbdaae8838707a;hpb=04d819bb1a2e64de4e997203b9516229bb73c686;p=sbcl.git

diff --git a/slam.sh b/slam.sh
index 8206767..202c8aa 100644
--- a/slam.sh
+++ b/slam.sh
@@ -79,8 +79,8 @@ case "$HOST_TYPE" in
            INIT="-noinit"
            CORE="-core"
            ;;
-    sbcl)  LISP="sbcl"
-           INIT="--sysinit /dev/null --userinit /dev/null"
+    sbcl)  LISP="${XC_LISP:-sbcl}"
+           INIT="--no-sysinit --no-userinit"
            CORE="--core"
            ;;
     clisp) LISP="clisp"
@@ -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