[cells-cvs] CVS cells

[phildebrandt]

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

Modified Files:
	cells.asd family.lisp 
Log Message:
Fixed loading in cells.asd
 


--- /project/cells/cvsroot/cells/cells.asd	2008/02/01 15:52:49	1.9
+++ /project/cells/cvsroot/cells/cells.asd	2008/02/16 09:34:28	1.10
@@ -13,15 +13,8 @@
   :long-description "Cells: a dataflow extension to CLOS."
   :version "3.0"
   :serial t
-  :components ((:module "utils-kt"
-                 :serial t
-                 :components ((:file "defpackage")
-                              (:file "debug")
-                              (:file "flow-control")
-                              (:file "detritus")
-                              (:file "strings")
-                              (:file "datetime")))
-               (:file "defpackage")
+  :depends-on (:utils-kt)
+  :components ((:file "defpackage")
                (:file "trc-eko")
                (:file "cells")
                (:file "integrity")
--- /project/cells/cvsroot/cells/family.lisp	2007/12/03 20:11:11	1.22
+++ /project/cells/cvsroot/cells/family.lisp	2008/02/16 09:34:29	1.23
@@ -80,6 +80,9 @@
   (when new-value
     (not-to-be self)))
 
+
+(defvar *parent* nil)
+
 (defmodel family (model)
   ((.kid-slots :cell nil
      :initform nil
@@ -89,9 +92,8 @@
      :owning t
      :accessor kids
      :initarg :kids)
-   ))
-
-(defvar *parent*)
+   )
+  (:default-initargs :fm-parent (when (boundp '*parent*) *parent*)))
 
 (defmacro the-kids (&rest kids)
   `(let ((*parent* self))