diff --git a/test-asys.lisp b/test-asys.lisp index 3a8e918..b4f76b8 100644 --- a/test-asys.lisp +++ b/test-asys.lisp @@ -15,9 +15,9 @@ (deftest test-neuron-basics () (let* ((prb (asys:neuron #'probe :env t:*test-suite* :state '(43 44 9 13))) - ;(syn (asys:synapse prb (asys:set-content #'1+))) + ;(syn1 (asys:synapse prb (asys:set-content #'1+))) (syn1 (asys:synapse prb #'1+)) - ;(syn (asys:synapse prb (asys:inhibit))) + ;(syn3 (asys:synapse prb (asys:inhibit))) (fw (asys:neuron #'asys:forward :syns (list syn1))) (syn2 (asys:synapse fw #'1+)) (cum (asys:neuron #'asys:cumulate :state 0 :syns (list syn2)))) @@ -26,8 +26,4 @@ (actor:send cum 7) (actor:send cum 4) (sleep 0.1) - (actor:stop prb) - (actor:stop fw) - (actor:stop cum) - (sleep 0.1) ))