-(defmethod initialize-instance ((container container) &rest initargs
- &key children)
- (declare (ignore initargs))
- (call-next-method)
- (dolist (child children)
- (cond
- ((consp child)
- (container-add container (first child))
- (setf
- (slot-value (first child) 'child-slots)
- (apply
- #'make-instance
- (slot-value (class-of container) 'child-class)
- :parent container :child (first child) (cdr child))))
- (t
- (container-add container child)))))
-
-(defbinding %container-child-getv () nil