Update of /project/rjain-utils/cvsroot/formulate/examples In directory cl-net:/tmp/cvs-serv29200/examples
Modified Files: simple.lisp Log Message: Refactor a bit and get everything working for the basic lazy evaluation and unconditional propagation scenario.
--- /project/rjain-utils/cvsroot/formulate/examples/simple.lisp 2007/11/02 20:45:39 1.1.1.1 +++ /project/rjain-utils/cvsroot/formulate/examples/simple.lisp 2009/11/04 21:41:34 1.2 @@ -1,5 +1,19 @@ (in-package :formulate-user)
+(define-formulated-variable *x* 5 + :formulator-class simple-formulator-source) + +(define-formulated-variable *y* (expt *x* 2)) + +(assert (= *x* 5)) + +(assert (= *y* 25)) + +(setf *x* 2) + +(assert (= *y* 4)) + + (defgeneric area (shape)) (defgeneric perimeter (shape))
@@ -26,4 +40,3 @@ (setf (circle-radius circle) i) (format t "~&A circle with radius ~A has perimeter ~A and area ~A~%" (circle-radius circle) (perimeter circle) (area circle)))) -