X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fpcl%2Fdefclass.lisp;h=75ed5b4afc0046e04dca6f00b2fb4de90d07c516;hb=f318d0b1654042ed8f1b887852a9ba1f539208e4;hp=cbce704d8b10756b2e358e8b8a427924ffb5cec1;hpb=4f8f4b25cb564509437d8fc26038143150077f14;p=sbcl.git

diff --git a/src/pcl/defclass.lisp b/src/pcl/defclass.lisp
index cbce704..75ed5b4 100644
--- a/src/pcl/defclass.lisp
+++ b/src/pcl/defclass.lisp
@@ -233,7 +233,8 @@
                 (if (eq type t)
                     nil
                     `('type-check-function (lambda (value)
-                                             (declare (type ,type value))
+                                             (declare (type ,type value)
+                                                      (optimize (sb-c:store-coverage-data 0)))
                                              value))))
                (canon `(:name ',name :readers ',readers :writers ',writers
                               :initargs ',initargs
@@ -281,7 +282,10 @@
            (unless entry
              (setq entry (list initform
                                (gensym)
-                               `(function (lambda () ,initform))))
+                               `(function (lambda ()
+                                  (declare (optimize
+                                            (sb-c:store-coverage-data 0)))
+                                  ,initform))))
              (push entry *initfunctions-for-this-defclass*))
            (cadr entry)))))