[cells-cvs] CVS update: cells/cells.lpr cells/synapse.lisp

[Kenny Tilton]

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 (, at 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