projects
/
sbcl.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
1.0.10.14: remove locking and gc inhibition from hash-tables, power of 2 sizes
[sbcl.git]
/
src
/
pcl
/
defclass.lisp
diff --git
a/src/pcl/defclass.lisp
b/src/pcl/defclass.lisp
index
cbce704
..
75ed5b4
100644
(file)
--- a/
src/pcl/defclass.lisp
+++ b/
src/pcl/defclass.lisp
@@
-233,7
+233,8
@@
(if (eq type t)
nil
`('type-check-function (lambda (value)
(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
value))))
(canon `(:name ',name :readers ',readers :writers ',writers
:initargs ',initargs
@@
-281,7
+282,10
@@
(unless entry
(setq entry (list initform
(gensym)
(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)))))
(push entry *initfunctions-for-this-defclass*))
(cadr entry)))))