[cells-cvs] CVS cells

[ktilton]

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))))