X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fpcl%2Fdescribe.lisp;h=d9a4e2b5e1cae396b969d521338d86c23b2c61cf;hb=416152f084604094445a758ff399871132dff2bd;hp=0356fe611f0e762e139081755ca5cc0450dd74fe;hpb=39ca94ec421224c78cb01f7d2d7b49321c66a2d4;p=sbcl.git

diff --git a/src/pcl/describe.lisp b/src/pcl/describe.lisp
index 0356fe6..d9a4e2b 100644
--- a/src/pcl/describe.lisp
+++ b/src/pcl/describe.lisp
@@ -26,8 +26,7 @@
 
 (in-package "SB-PCL")
 
-;; byte-compile this file
-(declaim (optimize (speed 0) (safety 1)))
+(declaim #.*optimize-byte-compilation*)
 
 (defmethod slots-to-inspect ((class slot-class) (object slot-object))
   (class-slots class))