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)