projects
/
sbcl.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
1.0.9.46: take pv-slot value from wrapper-slot-table
[sbcl.git]
/
src
/
pcl
/
std-class.lisp
diff --git
a/src/pcl/std-class.lisp
b/src/pcl/std-class.lisp
index
04cdc98
..
f22b2b0
100644
(file)
--- a/
src/pcl/std-class.lisp
+++ b/
src/pcl/std-class.lisp
@@
-896,10
+896,10
@@
(update-lisp-class-layout class nwrapper)
(setf (slot-value class 'slots) eslotds
(update-lisp-class-layout class nwrapper)
(setf (slot-value class 'slots) eslotds
- (layout-slot-table nwrapper) (make-slot-table class eslotds)
+ (wrapper-slot-table nwrapper) (make-slot-table class eslotds)
(wrapper-instance-slots-layout nwrapper) nlayout
(wrapper-class-slots nwrapper) nwrapper-class-slots
(wrapper-instance-slots-layout nwrapper) nlayout
(wrapper-class-slots nwrapper) nwrapper-class-slots
- (layout-length nwrapper) nslots
+ (wrapper-length nwrapper) nslots
(slot-value class 'wrapper) nwrapper)
(do* ((slots (slot-value class 'slots) (cdr slots))
(dupes nil))
(slot-value class 'wrapper) nwrapper)
(do* ((slots (slot-value class 'slots) (cdr slots))
(dupes nil))
@@
-1312,6
+1312,8
@@
(wrapper-instance-slots-layout owrapper))
(setf (wrapper-class-slots nwrapper)
(wrapper-class-slots owrapper))
(wrapper-instance-slots-layout owrapper))
(setf (wrapper-class-slots nwrapper)
(wrapper-class-slots owrapper))
+ (setf (wrapper-slot-table nwrapper)
+ (wrapper-slot-table owrapper))
(with-pcl-lock
(update-lisp-class-layout class nwrapper)
(setf (slot-value class 'wrapper) nwrapper)
(with-pcl-lock
(update-lisp-class-layout class nwrapper)
(setf (slot-value class 'wrapper) nwrapper)