work in progress: real decons/csys stuff

csys.lisp

@@ -25,6 +25,8 @@
   (dolist (s syns)
     (funcall s msg)))
 
+;;;; publish/subscribe - pubsub service
+
 ;;;; helpers for operations on complex messages (with content and customer slots)
 
 (defun set-content (fn)

test-csys.lisp

@@ -8,7 +8,10 @@
     (lambda (msg) (probe msg state syns env))
   ))
 
-(deftest test-neuron ()
+(defun test-csys ()
+  (test-neuron-basics))
+
+(deftest test-neuron-basics ()
   (let* ((prb (csys:neuron #'probe :env t:*test-suite* :state '(43 44)))
          ;(syn (csys:synapse prb (csys:set-content #'1+)))
          (syn (csys:synapse prb #'1+))

test-decons.lisp

@@ -19,7 +19,7 @@
     (test-recursive)
     (test-line)
     (test-quad)
-    (test-neuron)
+    (test-csys)
     (t:show-result)))
 
 (deftest test-xplore ()