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.40: Fix build for windows when source directory contains spaces
[sbcl.git]
/
src
/
pcl
/
braid.lisp
diff --git
a/src/pcl/braid.lisp
b/src/pcl/braid.lisp
index
3ae9be4
..
2e0f11a
100644
(file)
--- a/
src/pcl/braid.lisp
+++ b/
src/pcl/braid.lisp
@@
-219,6
+219,8
@@
name class slots
standard-effective-slot-definition-wrapper t))
name class slots
standard-effective-slot-definition-wrapper t))
+ (setf (layout-slot-table wrapper) (make-slot-table class slots t))
+
(case meta
((standard-class funcallable-standard-class)
(!bootstrap-initialize-class
(case meta
((standard-class funcallable-standard-class)
(!bootstrap-initialize-class
@@
-310,7
+312,10
@@
slot-class))
(set-slot 'direct-slots direct-slots)
(set-slot 'slots slots)
slot-class))
(set-slot 'direct-slots direct-slots)
(set-slot 'slots slots)
- (set-slot 'slot-vector (make-slot-vector class slots)))
+ (setf (layout-slot-table wrapper)
+ (make-slot-table class slots
+ (member metaclass-name
+ '(standard-class funcallable-standard-class)))))
;; For all direct superclasses SUPER of CLASS, make sure CLASS is
;; a direct subclass of SUPER. Note that METACLASS-NAME doesn't
;; For all direct superclasses SUPER of CLASS, make sure CLASS is
;; a direct subclass of SUPER. Note that METACLASS-NAME doesn't