0.7.9.1:

[sbcl.git] / make-host-2.sh

diff --git a/make-host-2.sh b/make-host-2.sh
index 19a7552..e3c4f3f 100644 (file)
--- a/make-host-2.sh
+++ b/make-host-2.sh
@@ -60,7 +60,9 @@ $SBCL_XC_HOST <<-'EOF' || exit 1
                                       (sb!ext:inhibit-warnings 2)
                                       ;; SAFETY = SPEED (and < 3) should 
                                       ;; reasonable safety, but might skip 
-                                      ;; some unreasonably expensive stuff.
+                                      ;; some unreasonably expensive stuff
+                                      ;; (e.g. %DETECT-STACK-EXHAUSTION
+                                      ;; in sbcl-0.7.2).
                                        (safety 2)
                                        (space 1)
                                       (speed 2)))))
@@ -74,8 +76,6 @@ $SBCL_XC_HOST <<-'EOF' || exit 1
                ;; redefine our functions anyway; and developers can
                ;; fend for themselves.)
                #!-sb-fluid (sb!ext:*derive-function-types* t)
-               ;; FIXME: *TOPLEVEL-LAMBDA-MAX* should go away altogether.
-               (sb!c::*toplevel-lambda-max* 1)
                ;; Let the target know that we're the cross-compiler.
                (*features* (cons :sb-xc *features*))
                ;; We need to tweak the readtable..
@@ -123,6 +123,7 @@ $SBCL_XC_HOST <<-'EOF' || exit 1
           #+cmu (ext:save-lisp "output/after-xc.core" :load-init-file nil)
           #+sbcl (sb-ext:save-lisp-and-die "output/after-xc.core")
          )
+        #+cmu (ext:quit)
        EOF
 
 # Run GENESIS (again) in order to create cold-sbcl.core. (The first