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

diff --git a/make-host-2.sh b/make-host-2.sh
index 59afc86..637914a 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)