[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