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