Update of /project/cells/cvsroot/cells/cells-test In directory clnet:/tmp/cvs-serv940/cells-test Modified Files: cells-test.lpr df-interference.lisp Log Message: --- /project/cells/cvsroot/cells/cells-test/cells-test.lpr 2006/03/18 00:14:01 1.4 +++ /project/cells/cvsroot/cells/cells-test/cells-test.lpr 2006/05/12 08:27:39 1.5 @@ -1,4 +1,4 @@ -;; -*- lisp-version: "8.0 [Windows] (Mar 7, 2006 20:04)"; cg: "1.81"; -*- +;; -*- lisp-version: "8.0 [Windows] (May 5, 2006 15:39)"; cg: "1.81"; -*- (in-package :cg-user) --- /project/cells/cvsroot/cells/cells-test/df-interference.lisp 2006/03/16 05:22:08 1.2 +++ /project/cells/cvsroot/cells/cells-test/df-interference.lisp 2006/05/12 08:27:39 1.3 @@ -118,3 +118,11 @@ )) +(defmodel skipper () + ((price :initform (c-in 0) :accessor price) + (max-price :accessor max-price + :initform (c? (if .cache + (max (^price) .cache) + (^price)))) + (half-max :accessor half-max + :initform (c? (floor (^half-max) \ No newline at end of file