[cells-cvs] CVS triple-cells

ktilton ktilton at common-lisp.net
Fri Apr 11 09:24:42 UTC 2008


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

Modified Files:
	defpackage.lisp observer.lisp triple-cells.lpr 
Log Message:


--- /project/cells/cvsroot/triple-cells/defpackage.lisp	2008/02/23 01:22:11	1.2
+++ /project/cells/cvsroot/triple-cells/defpackage.lisp	2008/04/11 09:24:42	1.3
@@ -31,3 +31,6 @@
   (:nicknames :3c)
   (:use #:common-lisp #:utils-kt #:db.agraph #:cells)) ;; cells just for TRC (so far)
 
+(in-package :triple-cells)
+
+(defvar *3c-observers*)
\ No newline at end of file
--- /project/cells/cvsroot/triple-cells/observer.lisp	2008/02/23 01:22:11	1.2
+++ /project/cells/cvsroot/triple-cells/observer.lisp	2008/04/11 09:24:42	1.3
@@ -57,7 +57,7 @@
 
 ;;; ----------------------------------------------------
 
-(defvar *3c-observers*)
+
 
 (defun (setf 3c-observer) (function c-node)
   (assert (functionp function) () "3c-observer setf not rule: ~a ~a" (type-of function) function)
--- /project/cells/cvsroot/triple-cells/triple-cells.lpr	2008/02/23 01:22:11	1.4
+++ /project/cells/cvsroot/triple-cells/triple-cells.lpr	2008/04/11 09:24:42	1.5
@@ -1,4 +1,4 @@
-;; -*- lisp-version: "8.1 [Windows] (Feb 1, 2008 18:35)"; cg: "1.103.2.10"; -*-
+;; -*- lisp-version: "8.1 [Windows] (Apr 3, 2008 23:47)"; cg: "1.103.2.10"; -*-
 
 (in-package :cg-user)
 
@@ -7,13 +7,13 @@
 (define-project :name :triple-cells
   :modules (list (make-instance 'module :name "defpackage.lisp")
                  (make-instance 'module :name "ag-utilities.lisp")
+                 (make-instance 'module :name "3c-integrity.lisp")
                  (make-instance 'module :name "core.lisp")
                  (make-instance 'module :name "api.lisp")
                  (make-instance 'module :name "dataflow.lisp")
                  (make-instance 'module :name "observer.lisp")
                  (make-instance 'module :name "hello-world.lisp")
-                 (make-instance 'module :name "read-me.lisp")
-                 (make-instance 'module :name "3c-integrity.lisp"))
+                 (make-instance 'module :name "read-me.lisp"))
   :projects (list (make-instance 'project-module :name
                                  "..\\Cells\\cells"))
   :libraries nil




More information about the Cells-cvs mailing list