Update of /project/cells/cvsroot/cells/doc In directory clnet:/tmp/cvs-serv30537/doc Modified Files: 01-Cell-basics.lisp Log Message: Mainly remove WITH-INTEGRITY wrapper from (setf md-slot-value). Big change, that. --- /project/cells/cvsroot/cells/doc/01-Cell-basics.lisp 2006/03/16 05:24:41 1.2 +++ /project/cells/cvsroot/cells/doc/01-Cell-basics.lisp 2006/05/01 20:23:14 1.3 @@ -111,9 +111,6 @@ (in-package :cells) -(cells-reset) - - (defmodel stone () ((accel :cell t :initarg :accel :initform 0 :accessor accel) (time-elapsed :cell t :initarg :time-elapsed @@ -210,9 +207,11 @@ #+evaluatethis -(defparameter *s2* (make-instance 'stone - :accel 32 ;; (constant) feet per second per second - :time-elapsed (c-in 0))) +(progn + (cells-reset) + (defparameter *s2* (make-instance 'stone + :accel 32 ;; (constant) feet per second per second + :time-elapsed (c-in 0)))) #|