[cells-cvs] CVS cells/doc

[ktilton]

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