X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;ds=sidebyside;f=make-host-2.sh;h=5d0fdf159e43718f0599ed5c637448febddc405d;hb=b062a0cffdc3e1706a67c487d2bc5e406c104893;hp=59afc86ed14954a48aba963c3ca1de9fb3c05ba8;hpb=34dd23563d2f5cf05c72b971da0d0b065a09bf2a;p=sbcl.git

diff --git a/make-host-2.sh b/make-host-2.sh
index 59afc86..5d0fdf1 100644
--- a/make-host-2.sh
+++ b/make-host-2.sh
@@ -58,7 +58,12 @@ $SBCL_XC_HOST <<-'EOF' || exit 1
 	    (sb-xc:proclaim `(optimize (compilation-speed 1)
 	                               (debug ,debug)
 				       (sb!ext:inhibit-warnings 2)
-                                       (safety 3)
+				       ;; SAFETY = SPEED (and < 3) should 
+				       ;; reasonable safety, but might skip 
+				       ;; some unreasonably expensive stuff
+				       ;; (e.g. %DETECT-STACK-EXHAUSTION
+				       ;; in sbcl-0.7.2).
+                                       (safety 2)
                                        (space 1)
 				       (speed 2)))))
         (compile 'proclaim-target-optimization)
@@ -71,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..