[cells-cvs] CVS cells/cells-test

[ktilton]

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