88 |
(map-slot-boundp* c2 '(a b c d)) |
(map-slot-boundp* c2 '(a b c d)) |
89 |
(slot-value c1 'a) |
(slot-value c1 'a) |
90 |
(slot-value c2 'a) |
(slot-value c2 'a) |
91 |
(eq (slot-makunbound c2 'a) c1) |
(eq (slot-makunbound c2 'a) c2) |
92 |
(map-slot-boundp* c1 '(a b)) |
(map-slot-boundp* c1 '(a b)) |
93 |
(map-slot-boundp* c2 '(a b c d)))) |
(map-slot-boundp* c2 '(a b c d)))) |
94 |
(nil nil) |
(nil nil) |
168 |
|
|
169 |
;;; |
;;; |
170 |
|
|
171 |
|
;;; Show shadowing of slots by :allocation |
172 |
|
|
173 |
(defclass class-0207a () |
(defclass class-0207a () |
174 |
((a :allocation :class))) |
((a :allocation :class))) |
175 |
|
|
214 |
z |
z |
215 |
t t t |
t t t |
216 |
x y z) |
x y z) |
217 |
|
|