[cells-cvs] CVS cells
fgoenninger
fgoenninger at common-lisp.net
Sun Dec 2 18:28:04 UTC 2007
Update of /project/cells/cvsroot/cells
In directory clnet:/tmp/cvs-serv18364
Modified Files:
constructors.lisp
Log Message:
Changed: Moved all symbol exports to beginning of file.
Removed: c?+n constructor was defined twice in file.
--- /project/cells/cvsroot/cells/constructors.lisp 2007/11/30 16:51:18 1.17
+++ /project/cells/cvsroot/cells/constructors.lisp 2007/12/02 18:28:04 1.18
@@ -19,15 +19,28 @@
(in-package :cells)
(eval-now!
- (export '(c?n)))
+ (export '(.cache-bound-p
+
+ ;; Cells Constructors
+ c?n
+ c?once
+ c?n-until
+ c?1
+ c_1
+ c?+n
+
+ ;; Debug Macros and Functions
+ c?dbg
+ c_?dbg
+ c-input-dbg
+
+ )))
;___________________ constructors _______________________________
(defmacro c-lambda (&body body)
`(c-lambda-var (slot-c) , at body))
-(export! .cache-bound-p c?+n)
-
(defmacro c-lambda-var ((c) &body body)
`(lambda (,c &aux (self (c-model ,c))
(.cache (c-value ,c))
@@ -72,8 +85,6 @@
:rule (c-lambda , at body)
, at args))
-(export! c?once c?n-until c?1 c_1)
-
(defmacro c?once (&body body)
`(make-c-dependent
:code '(without-c-dependency , at body)
@@ -114,8 +125,6 @@
:lazy :until-asked
:rule (c-lambda , at body)))
-(export! c?dbg c_?dbg c-input-dbg)
-
(defmacro c_?dbg (&body body)
"Lazy until asked, then eagerly propagating"
`(make-c-dependent
More information about the Cells-cvs
mailing list