X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fpcl%2Flow.lisp;h=4fa6a093ec69f3eef83a294b228c46c6199bb7fe;hb=44fa19275c08a17b9d80d95102c1a8bc0da7a17e;hp=3a30c9bd3d725cba54b0248401aab4e3ac9326fd;hpb=dd04bd449535e9016b5652a708a3cac2ca24c87d;p=sbcl.git

diff --git a/src/pcl/low.lisp b/src/pcl/low.lisp
index 3a30c9b..4fa6a09 100644
--- a/src/pcl/low.lisp
+++ b/src/pcl/low.lisp
@@ -39,7 +39,7 @@
 
 (eval-when (:compile-toplevel :load-toplevel :execute)
 (defvar *optimize-speed*
-  '(optimize (speed 3) (safety 0)))
+  '(optimize (speed 3) (safety 0) (sb-ext:inhibit-warnings 3)))
 ) ; EVAL-WHEN
 
 (defmacro dotimes-fixnum ((var count &optional (result nil)) &body body)