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*))