Update of /project/cells/cvsroot/cells/doc In directory clnet:/tmp/cvs-serv13795/doc

Modified Files: motor-control.lisp Log Message:

--- /project/cells/cvsroot/cells/doc/motor-control.lisp 2006/03/22 04:08:35 1.2 +++ /project/cells/cvsroot/cells/doc/motor-control.lisp 2006/06/07 22:12:55 1.3 @@ -58,6 +58,11 @@ :initform (c? (ecase (^status) (:on :open) (:off :closed)))) (temp :initarg :temp :accessor temp :initform (c-in 0))))

+#+test +(progn + (cells-reset) + (setf (status (make-instance 'motor :status :on)) 42)) + #|

Note that "status" is a cell with no initial value or formula, "fuel-pump" is