Update of /project/cells/cvsroot/cells In directory common-lisp.net:/tmp/cvs-serv25207
Modified Files: cells.lpr synapse.lisp Log Message: minor synapse work? Date: Wed Jun 15 23:06:06 2005 Author: ktilton
Index: cells/cells.lpr diff -u cells/cells.lpr:1.3 cells/cells.lpr:1.4 --- cells/cells.lpr:1.3 Thu May 19 22:17:47 2005 +++ cells/cells.lpr Wed Jun 15 23:06:06 2005 @@ -27,7 +27,8 @@ (make-instance 'module :name "test.lisp") (make-instance 'module :name "test-ephemeral.lisp") (make-instance 'module :name "test-cycle.lisp") - (make-instance 'module :name "test-synapse.lisp")) + (make-instance 'module :name "test-synapse.lisp") + (make-instance 'module :name "ipcells.lisp")) :projects (list (make-instance 'project-module :name "utils-kt\utils-kt")) :libraries nil
Index: cells/synapse.lisp diff -u cells/synapse.lisp:1.7 cells/synapse.lisp:1.8 --- cells/synapse.lisp:1.7 Fri May 27 03:34:34 2005 +++ cells/synapse.lisp Wed Jun 15 23:06:06 2005 @@ -28,13 +28,11 @@ (defmacro with-synapse (synapse-id (&rest closure-vars) &body body) (declare (ignorable trcp)) (let ((syn-id (gensym))(syn-user (gensym))) - `(let* ((,syn-id (eko ("!!! syn-id =") ,synapse-id)) + `(let* ((,syn-id ,synapse-id) (,syn-user (car *c-calculators*)) (synapse (or (find ,syn-id (cd-useds ,syn-user) :key 'c-slot-name) (let ((new-syn (let (,@closure-vars) - (trc "withsyn making new syn" ,syn-id - :known (mapcar 'c-slot-name (cd-useds ,syn-user))) (make-c-dependent :model (c-model ,syn-user) :slot-name ,syn-id