work in progress: csys - set up tests, basic functionality§

csys.lisp

@@ -2,9 +2,12 @@
 
 (defpackage :decons/csys
   (:use :common-lisp)
-  (:local-nicknames (:util :scopes/util))
-  (:export #:system))
+  (:local-nicknames (:actor :scopes/core/actor)
+                    (:util :scopes/util))
+  (:export #:cell #:system))
 
 (in-package :decons/csys)
 
-
+(defun cell (mh &key state conns)
+  (actor:create 
+    (lambda (msg) (funcall mh state conns))))

decons.asd

@@ -8,7 +8,8 @@
   :description "Deconstruction as a method for implementing machine intelligence."
   :depends-on (:alexandria
                :scopes-core :scopes/test)
-  :components ((:file "mlx" :depends-on ("recurse"))
+  :components ((:file "csys" :depends-on ("mlx"))
+               (:file "mlx" :depends-on ("recurse"))
                (:file "recurse")
                (:file "xplore"))
   :long-description "decons: The base system of the decons project."
@@ -16,6 +17,7 @@
 
 (defsystem :decons/test
   :depends-on (:decons)
-  :components ((:file "test-decons"))
+  :components ((:file "test-decons")
+               (:file "test-csys" :depends-on ("test-decons")))
   :perform (test-op (o c) 
     (symbol-call :decons/test-decons :run)))

test-csys.lisp

@@ -0,0 +1,6 @@
+;;;; decons/test-csys - tests for the csys (cybernetic ommunication systems) package
+
+(in-package :decons/test-decons)
+
+(deftest test-neuron ()
+  (== 1 1))

test-decons.lisp

@@ -2,7 +2,8 @@
 
 (defpackage :decons/test-decons
   (:use :common-lisp)
-  (:local-nicknames (:mlx :decons/mlx)
+  (:local-nicknames (:csys :decons/csys)
+                    (:mlx :decons/mlx)
                     (:r :decons/recurse)
                     (:xplore :decons/xplore)
                     (:t :scopes/testing))
@@ -17,6 +18,7 @@
     (test-recursive)
     (test-line)
     (test-quad)
+    (test-neuron)
     (t:show-result)))
 
 (deftest test-xplore ()