[cells-cvs] CVS cells/doc
ktilton
ktilton at common-lisp.net
Fri Nov 30 22:52:36 UTC 2007
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))
More information about the Cells-cvs
mailing list