Update of /project/cells/cvsroot/cells/doc In directory clnet:/tmp/cvs-serv30806/doc Modified Files: 01-Cell-basics.lisp Log Message: --- /project/cells/cvsroot/cells/doc/01-Cell-basics.lisp 2006/11/04 20:52:01 1.5 +++ /project/cells/cvsroot/cells/doc/01-Cell-basics.lisp 2007/11/30 22:52:36 1.6 @@ -335,11 +335,12 @@ () (:default-initargs :kids (c-in nil) ;; or we cannot add any addend kids later - :value (c? (reduce #'+ (kids self) + :value (c? (trc "val rule runs") + (reduce #'+ (kids self) :initial-value 0 :key #'value)))) -(defobserver value ((self summer)) +(defobserver .value ((self summer)) (trc "the sum of the values of the kids is" new-value)) (defobserver .kids ((self summer))