50 |
(map-slot-value obj '(s1 s2)))) |
(map-slot-value obj '(s1 s2)))) |
51 |
t (a b)) |
t (a b)) |
52 |
|
|
53 |
|
(deftest reinitialize-instance.6 |
54 |
|
(let* ((obj (make-instance 'class-07 :s1a 'a)) |
55 |
|
(obj2 (reinitialize-instance obj :s1b 'b))) |
56 |
|
(values |
57 |
|
(eqt obj obj2) |
58 |
|
(slot-value obj 's1) |
59 |
|
(slot-boundp* obj 's2))) |
60 |
|
t b nil) |
61 |
|
|
62 |
|
(deftest reinitialize-instance.7 |
63 |
|
(let* ((obj (make-instance 'class-07 :s1a 'a)) |
64 |
|
(obj2 (reinitialize-instance obj :s2 'b))) |
65 |
|
(values |
66 |
|
(eqt obj obj2) |
67 |
|
(slot-value obj 's1) |
68 |
|
(slot-value obj 's2))) |
69 |
|
t a b) |
70 |
|
|
71 |
|
|
72 |
|
|
73 |
|
|
74 |
|
|
75 |
|
|
76 |
|
|