projects
/
sbcl.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
1.0.16.31: --control-stack-size runtime argument
[sbcl.git]
/
src
/
pcl
/
slots-boot.lisp
diff --git
a/src/pcl/slots-boot.lisp
b/src/pcl/slots-boot.lisp
index
0514bf5
..
b2b1f21
100644
(file)
--- a/
src/pcl/slots-boot.lisp
+++ b/
src/pcl/slots-boot.lisp
@@
-588,7
+588,7
@@
(eq metaclass *the-class-funcallable-standard-class*))))))
(save-type-check-function-p
(unless bootstrap
(eq metaclass *the-class-funcallable-standard-class*))))))
(save-type-check-function-p
(unless bootstrap
- (and save-slot-location-p (safe-p class)))))
+ (and (eq 'complete *boot-state*) (safe-p class)))))
(flet ((add-to-vector (name slot)
(declare (symbol name)
(optimize (sb-c::insert-array-bounds-checks 0)))
(flet ((add-to-vector (name slot)
(declare (symbol name)
(optimize (sb-c::insert-array-bounds-checks 0)))