7 Jun
2006
7 Jun
'06
10:12 p.m.
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