0.8alpha.0.13:

[sbcl.git] / src / cold / ansify.lisp

diff --git a/src/cold/ansify.lisp b/src/cold/ansify.lisp
index 50023dc..5bfa6d2 100644 (file)
--- 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)))
 \f
 ;;;; CMU CL issues