263 |
(c nil c-p) |
(c nil c-p) |
264 |
&allow-other-keys) |
&allow-other-keys) |
265 |
(declare (ignore slots-to-init)) |
(declare (ignore slots-to-init)) |
266 |
(when a-p (setf (slot-value obj 'a) a)) |
;; (when a-p (setf (slot-value obj 'a) a)) |
267 |
(when b-p (setf (slot-value obj 'b) b)) |
;; (when b-p (setf (slot-value obj 'b) b)) |
268 |
(when c-p (setf (slot-value obj 'c) c)) |
;; (when c-p (setf (slot-value obj 'c) c)) |
269 |
|
(when a-p (setf (shared-init-class-03-a obj) a)) |
270 |
|
(when b-p (setf (shared-init-class-03-b obj) b)) |
271 |
|
(when c-p (setf (shared-init-class-03-c obj) c)) |
272 |
obj) |
obj) |
273 |
|
|
274 |
(deftest shared-initialize.3.1 |
(deftest shared-initialize.3.1 |