Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with HTTPS or Subversion.

Download ZIP
Browse files

*** empty log message ***

  • Loading branch information...
commit 0cf985c8bfd60ca676417e021a907186f21b422c 1 parent 4fa1463
ktilton authored
Showing with 4 additions and 4 deletions.
  1. +3 −2 doc/01-Cell-basics.lisp
  2. +1 −2  family.lisp
View
5 doc/01-Cell-basics.lisp
@@ -335,11 +335,12 @@ evaluate:
()
(: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))
View
3  family.lisp
@@ -25,8 +25,7 @@ See the Lisp Lesser GNU Public License for more details.
(defmodel model ()
((.md-name :cell nil :initform nil :initarg :md-name :accessor md-name)
(.fm-parent :cell nil :initform nil :initarg :fm-parent :accessor fm-parent)
- (.value :initform nil :accessor value :initarg :value)
- (zdbg :initform nil :accessor dbg :initarg :dbg)))
+ (.value :initform nil :accessor value :initarg :value)))
(defmethod fm-parent (other)
(declare (ignore other))
Please sign in to comment.
Something went wrong with that request. Please try again.