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