[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