X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=make-host-2.sh;h=637914a65f6e9769eaf7d1fee0871a499837d356;hb=d202a453b45430e04671b966c01bc067c2667442;hp=5e5c8e28e632225283b5460b26dcf4dd8d37097f;hpb=0cfad881b88e03971a2b3ef0c0c0fc2e5f4f1bc8;p=sbcl.git

diff --git a/make-host-2.sh b/make-host-2.sh
index 5e5c8e2..637914a 100644
--- a/make-host-2.sh
+++ b/make-host-2.sh
@@ -29,7 +29,7 @@ rm -f output/after-xc.core
 # that we used to compile it:
 #   (1) It reduces the chance that the cross-compilation process
 #       inadvertently comes to depend on some weird compile-time
-#       side-effect.
+#       side effect.
 #   (2) It reduces peak memory demand (because definitions wrapped in
 #       (EVAL-WHEN (:COMPILE-TOPLEVEL :EXECUTE) ..) aren't defined
 #       in the fresh image).
@@ -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)