Commit 74a3060a authored by Peter Hildebrandt's avatar Peter Hildebrandt
Browse files

Fixed loading in cells.asd

parent 33ed42aa
......@@ -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")
......
......@@ -80,6 +80,9 @@ See the Lisp Lesser GNU Public License for more details.
(when new-value
(not-to-be self)))
(defvar *parent* nil)
(defmodel family (model)
((.kid-slots :cell nil
:initform nil
......@@ -89,9 +92,8 @@ See the Lisp Lesser GNU Public License for more details.
:owning t
:accessor kids
:initarg :kids)
))
(defvar *parent*)
)
(:default-initargs :fm-parent (when (boundp '*parent*) *parent*)))
(defmacro the-kids (&rest kids)
`(let ((*parent* self))
......
......@@ -87,8 +87,7 @@ See the Lisp Lesser GNU Public License for more details.
;-------------------- timex ---------------------------------
(eval-when (compile eval load)
(export '(timex)))
(export! timex)
(defmacro timex ((onp &rest trcargs) &body body)
`(if ,onp
......@@ -119,10 +118,10 @@ See the Lisp Lesser GNU Public License for more details.
,form-measured)
,@postlude))
(export! clock clock-0 clock-off)
(defvar *clock*)
(export! clock clock-0 clock-off)
(defun clock-off (key)
(when (boundp '*clock*)
(print (list :clock-off key))
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment