Update of /project/cells/cvsroot/cells/cells-test In directory clnet:/tmp/cvs-serv31550/cells-test

Modified Files: df-interference.lisp hello-world.lisp test-synapse.lisp test.lisp Log Message: New abbreviated defmodel: defmd

Starting to change internals names as the mood hits me.

--- /project/cells/cvsroot/cells/cells-test/df-interference.lisp 2006/05/30 02:47:45 1.4 +++ /project/cells/cvsroot/cells/cells-test/df-interference.lisp 2006/06/23 01:04:56 1.5 @@ -64,7 +64,7 @@ ;; - b depends on c ;; ;; if c changes, depending on the accident of the order in which a and b happened to -;; be first evaluated, a might appear before b on c's list of dependents (users). then the +;; be first evaluated, a might appear before b on c's list of dependents (callers). then the ;; following happens: ;; ;; - c triggers a @@ -113,7 +113,7 @@ (trc "cell is" c) (when (typep (cdr c) 'cell) (print `(notifier ,c)) - (dolist (u (c-users (cdr c))) + (dolist (u (c-callers (cdr c))) (print `(___ ,u))))) ))

--- /project/cells/cvsroot/cells/cells-test/hello-world.lisp 2006/06/20 14:16:45 1.4 +++ /project/cells/cvsroot/cells/cells-test/hello-world.lisp 2006/06/23 01:04:56 1.5 @@ -24,13 +24,14 @@

(in-package :cells)

+ (defmd computer () - (happen (c-in nil) :ephemeral) + (happen (c-in nil) :cell :ephemeral) (location (c? (case (^happen) (:leave :away) (:arrive :at-home) (t .cache)))) ;; ie, unchanged - (response nil :ephemeral)) + (response nil :cell :ephemeral))

(defobserver response(self new-response old-response) (when new-response --- /project/cells/cvsroot/cells/cells-test/test-synapse.lisp 2006/03/16 05:22:08 1.1 +++ /project/cells/cvsroot/cells/cells-test/test-synapse.lisp 2006/06/23 01:04:56 1.2 @@ -22,7 +22,6 @@

(in-package :cells)

- (defmodel m-syn () ((m-syn-a :initform nil :initarg :m-syn-a :accessor m-syn-a) (m-syn-b :initform nil :initarg :m-syn-b :accessor m-syn-b) --- /project/cells/cvsroot/cells/cells-test/test.lisp 2006/06/20 14:16:45 1.7 +++ /project/cells/cvsroot/cells/cells-test/test.lisp 2006/06/23 01:04:56 1.8 @@ -34,14 +34,14 @@

- make sure they fire when they should, and do not when they should not

-- make sure they survive an evaluation by the user which does not branch to +- make sure they survive an evaluation by the caller which does not branch to them (ie, does not access them)

- make sure they optimize away

- test with forms which access multiple other cells

-- look at direct alteration of a user +- look at direct alteration of a caller

- does SETF honor not propagating, as well as a c-ruled after re-calcing

@@ -233,7 +233,7 @@ collect (cons sn c)))) (trc "dependencies of" self) (loop for (sn . c) in slot-cells - do (trc "slot" sn :users (mapcar 'c-slot-name (c-users c)))))) + do (trc "slot" sn :callers (mapcar 'c-slot-name (c-callers c))))))

(def-cell-test m-worst-case (let ((m (make-instance 'm-worst-case)))