[cells-devel] Cells: make-kid bypasses dependencies on kids of parent ?!

[Ken Tilton]

Frank Goenninger wrote:
> I have the following definition:
> 
> ;; A task is a container for ops. A task holds its ops as kids. So,  when a
> ;;; task is called the task will call its kids.
> 
> (defmd task (family)
>   (.md-name :accessor id :initarg :id)
>   fn-code
>   thread
>   state
>   nr-ops
> 
>   :id (c-in (gensym "GNC.APP.TASK-"))
>   :fn-code (c-in nil)
>   :thread (c-in nil)
>   :state (c-in nil)
>   :nr-ops (c? (loop for kid in (^kids)
>                    counting (eql (type-of kid) 'op) into ops-count
>                    finally (return ops-count))))
> 
> Now, when I do
> 
>  > (setq self (make-instance 'task))
> TASK1
> 
>  > (setq my-kid (make-kid 'task))
> TASK 2
> 
>  > (^nr-ops)
> 0
> 
> ... and this should now be 1, no ? Or what's the right way to add kids ?

Add them? :) make-kid does not add to the kids of self.

(push (make-kid...) (kids self))

kt