From: Paul Khuong <pvk@pvk.ca>
Date: Fri, 24 May 2013 17:07:36 +0000 (-0400)
Subject: Silence the compiler when (runtime-) compiling PCL innards
X-Git-Url: http://repo.macrolet.net/gitweb/?a=commitdiff_plain;h=03090fcd920d559cfe9c35f20c4038a8c74d0e5b;p=sbcl.git

Silence the compiler when (runtime-) compiling PCL innards
---

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)