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

Modified Files: cells.lpr family.lisp Log Message:

--- /project/cells/cvsroot/cells/cells.lpr 2006/08/21 04:29:30 1.20 +++ /project/cells/cvsroot/cells/cells.lpr 2006/08/28 21:44:13 1.21 @@ -1,4 +1,4 @@ -;; -*- lisp-version: "8.0 [Windows] (Aug 17, 2006 12:24)"; cg: "1.81"; -*- +;; -*- lisp-version: "8.0 [Windows] (Aug 24, 2006 21:48)"; cg: "1.81"; -*-

(in-package :cg-user)

--- /project/cells/cvsroot/cells/family.lisp 2006/08/21 04:29:30 1.11 +++ /project/cells/cvsroot/cells/family.lisp 2006/08/28 21:44:13 1.12 @@ -123,13 +123,13 @@ (c-break "2nd adopt ~a, by ~a" self fm-parent))

(incf (adopt-ct self)) - + (trc nil "getting adopted" self :by fm-parent) (bwhen (kid-slots-fn (kid-slots (fm-parent self))) (dolist (ks-def (funcall kid-slots-fn self) self) (let ((slot-name (ks-name ks-def))) - (trc nil "got ksdef " slot-name) + (trc nil "got ksdef " slot-name (ks-if-missing ks-def)) (when (md-slot-cell-type selftype slot-name) - (trc nil "got cell type " slot-name) + (trc nil "got cell type " slot-name ) (when (or (not (ks-if-missing ks-def)) (and (null (c-slot-value self slot-name)) (null (md-slot-cell self slot-name))))