X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=slam.sh;h=bb4c3db651b0bf322fa077705c8c37f1a2cc843b;hb=2695f20cc74e0693f184fa5c7327d4c557e5537f;hp=c1ea5f1cf9792d73da897f687200438b33382f0a;hpb=d7f6139a91d7d9b0667a597584ae306d958bb2f4;p=sbcl.git

diff --git a/slam.sh b/slam.sh
index c1ea5f1..bb4c3db 100644
--- a/slam.sh
+++ b/slam.sh
@@ -25,7 +25,14 @@
 # files for more information.
 
 
-export SBCL_XC_HOST="${1:-sbcl --noprogrammer}"
+# We don't try to be general about this in this script the way we are
+# in make.sh, since (1) we use our command line args as names of files
+# to recompile, and (2) the idiosyncrasies of SBCL command line
+# argument order dependence, the meaninglessness of duplicate --core
+# arguments, and the SBCL-vs-CMUCL dependence of --core/-core argument
+# syntax make it too messy to try deal with arbitrary SBCL commands.
+# So you have no choice:
+export SBCL_XC_HOST='sbcl --noprogrammer'
 
 # (We don't do make-host-1.sh at all. Hopefully nothing relevant has
 # changed.)
@@ -42,13 +49,8 @@ sh make-target-1.sh || exit 1
 # though, make a point of not calling after-xc.core, since it might
 # not exist, and there's no point in causing a fatal failure (by
 # unsuccessfully trying to execute it) unnecessarily.
-if [ "$*" != "" ] ; then 
-    # Actually, I wrote this script when I needed to do a lot of
-    # tweaking in src/runtime/*.c, and I haven't tried to make it 
-    # work for src/code/*.c yet. -- WHN 2001-05-12
-    echo stub: no support yet for after-xc.core
-    exit 1
-fi
+for f in $*; do echo "(target-compile-stem \"$f\")"; done \
+  | sbcl --core output/after-xc.core || exit 1
 sh make-genesis-2.sh || exit 1 
 
 sh make-target-2.sh || exit 1