X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcold%2Fansify.lisp;h=5bfa6d2415271cdd8391dd28587a32d5091012d8;hb=f1407e424f1063203af07d2e61ceef58515a4797;hp=50023dc29cee9f5e367155db47a26e769f58c288;hpb=c53ec09694206092fd3aa933adade5e5d5b343d2;p=sbcl.git

diff --git a/src/cold/ansify.lisp b/src/cold/ansify.lisp
index 50023dc..5bfa6d2 100644
--- a/src/cold/ansify.lisp
+++ b/src/cold/ansify.lisp
@@ -40,7 +40,10 @@
     ;; These problems don't seem deep, and could probably be worked
     ;; around.
     #+nil (clisp-ouch "no (DOCUMENTATION X) when X is a PACKAGE")
-    #+nil (clisp-ouch "no (FUNCTION (SETF SYMBOL-FUNCTION))")))
+    #+nil (clisp-ouch "no (FUNCTION (SETF SYMBOL-FUNCTION))"))
+  
+  (ext:without-package-lock ("SYSTEM")
+    (setf system::*inhibit-floating-point-underflow* t)))
 
 ;;;; CMU CL issues