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
