[cells-cvs] CVS cells

[ktilton]

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

Modified Files:
	cells.asd constructors.lisp family.lisp integrity.lisp 
	link.lisp synapse.lisp 
Log Message:


--- /project/cells/cvsroot/cells/cells.asd	2006/05/30 02:47:45	1.4
+++ /project/cells/cvsroot/cells/cells.asd	2006/07/06 22:10:01	1.5
@@ -30,7 +30,6 @@
                (:file "initialize")
                (:file "md-slot-value")
                (:file "slot-utilities")
-               (:file "optimization")
                (:file "link")
                (:file "propagate")
                (:file "model-object")
--- /project/cells/cvsroot/cells/constructors.lisp	2006/06/09 17:21:35	1.7
+++ /project/cells/cvsroot/cells/constructors.lisp	2006/07/06 22:10:01	1.8
@@ -18,7 +18,7 @@
 
 (in-package :cells)
 
-(eval-when (compile load eval)
+(eval-now!
   (export '(c?n)))
 
 ;___________________ constructors _______________________________
--- /project/cells/cvsroot/cells/family.lisp	2006/06/29 09:54:06	1.9
+++ /project/cells/cvsroot/cells/family.lisp	2006/07/06 22:10:01	1.10
@@ -141,7 +141,6 @@
                 (md-install-cell self slot-name c-or-value)))))))))
 
 (defobserver .kids ((self family) new-kids old-kids)
-  (declare (ignorable usage))
   (c-assert (listp new-kids) () "New kids value for ~a not listp: ~a ~a" self (type-of new-kids) new-kids)
   (c-assert (listp old-kids))
   (c-assert (not (member nil old-kids)))
--- /project/cells/cvsroot/cells/integrity.lisp	2006/06/23 01:04:56	1.10
+++ /project/cells/cvsroot/cells/integrity.lisp	2006/07/06 22:10:01	1.11
@@ -64,8 +64,7 @@
   (let ((*within-integrity* nil)
           *unfinished-business*
           *defer-changes*
-        *call-stack*
-        (*data-pulse-id* 0))
+        *call-stack*)
     (funcall action)))
 
 (defun ufb-queue (opcode)
--- /project/cells/cvsroot/cells/link.lisp	2006/07/03 00:08:29	1.14
+++ /project/cells/cvsroot/cells/link.lisp	2006/07/06 22:10:01	1.15
@@ -129,10 +129,3 @@
           ;(c.trc "its ruled" c)
           (dolist (used (cd-useds c))
                (dump-useds used (+ 1 depth)))))
-
-
-(defun test-wk ()
-  (let ((h (make-hash-table :test 'eq :weak-keys t)))
-    (loop for n below 10
-          do (setf (gethash (make-cell :value n) h) n))
-    (maphash (lambda (k v) (print (list k v))) h)))
\ No newline at end of file
--- /project/cells/cvsroot/cells/synapse.lisp	2006/06/23 01:04:56	1.12
+++ /project/cells/cvsroot/cells/synapse.lisp	2006/07/06 22:10:01	1.13
@@ -22,7 +22,6 @@
   (export '(mk-synapse f-delta f-sensitivity f-plusp f-zerop fdifferent)))
 
 (defmacro with-synapse (synapse-id (&rest closure-vars) &body body)
-  (declare (ignorable trcp))
   (let ((syn-id (gensym))(syn-caller (gensym)))
     `(let* ((,syn-id ,synapse-id)
             (,syn-caller (car *call-stack*))