[cells-cvs] CVS cells

[ktilton]

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

Modified Files:
	family.lisp md-utilities.lisp model-object.lisp propagate.lisp 
	trc-eko.lisp 
Log Message:


--- /project/cells/cvsroot/cells/family.lisp	2006/08/28 21:44:13	1.12
+++ /project/cells/cvsroot/cells/family.lisp	2006/09/03 13:41:09	1.13
@@ -31,6 +31,10 @@
   (declare (ignore other))
   nil)
 
+(defmethod (setf fm-parent) (new-value other)
+  (declare (ignore other))
+  new-value)
+
 (defmethod print-object ((self model) s)
   (format s "~a" (type-of self))
   #+shhh (format s "~a" (or (md-name self) (type-of self))))
--- /project/cells/cvsroot/cells/md-utilities.lisp	2006/08/21 04:29:30	1.7
+++ /project/cells/cvsroot/cells/md-utilities.lisp	2006/09/03 13:41:09	1.8
@@ -27,6 +27,9 @@
 (defmethod md-release (other)
   (declare (ignorable other)))
 
+(export! md-dead)
+(defun md-dead (SELF)
+  (eq :eternal-rest (md-state SELF)))
 ;___________________ birth / death__________________________________
   
 (defmethod not-to-be :around (self)
--- /project/cells/cvsroot/cells/model-object.lisp	2006/06/29 09:54:06	1.9
+++ /project/cells/cvsroot/cells/model-object.lisp	2006/09/03 13:41:09	1.10
@@ -68,6 +68,7 @@
   ;
   (when c-isa-cell
     (count-it :md-install-cell)
+    
     (setf
      (c-model c) self
      (c-slot-name c) sn
@@ -103,7 +104,7 @@
   (trc nil "md-awaken entry" self (md-state self))
   (c-assert (eql :nascent (md-state self)))
   (count-it :md-awaken)
-  ;;(count-it 'mdawaken (type-of self))
+  (count-it 'mdawaken)
   
   ; ---
 
--- /project/cells/cvsroot/cells/propagate.lisp	2006/07/24 05:03:08	1.19
+++ /project/cells/cvsroot/cells/propagate.lisp	2006/09/03 13:41:09	1.20
@@ -46,7 +46,8 @@
 
 (defun c-pulse-update (c key)
   (declare (ignorable key))
-  (trc nil "c-pulse-update updating as unchanged!!!" *data-pulse-id* c key)
+  (trc nil "c-pulse-update updating" *data-pulse-id* c key)
+  (assert (>= *data-pulse-id* (c-pulse c)))
   (setf (c-changed c) nil
       (c-pulse c) *data-pulse-id*))
 
--- /project/cells/cvsroot/cells/trc-eko.lisp	2006/08/22 14:59:37	1.1
+++ /project/cells/cvsroot/cells/trc-eko.lisp	2006/09/03 13:41:09	1.2
@@ -46,12 +46,15 @@
                 (count-it :trcfailed)))
             (count-it :tgtnileval)))))))
 
+(defparameter *last-trc* (get-internal-real-time))
+
 (defun call-trc (stream s &rest os)
   (if #+cormanlisp nil #-cormanlisp (and (boundp '*trcdepth*)
                                       *trcdepth*)
     (format stream "~&~v,,,'.<~d~>> " (mod *trcdepth* 100) *trcdepth*)
     (format stream "~&"))
-  
+  (format stream " ~a " (round (- (get-internal-real-time) *last-trc*) 10))
+  (setf *last-trc* (get-internal-real-time))
   (format stream "~a" s)
   (let (pkwp)
     (dolist (o os)