;;;; cl-scopes/csys/program/gene - generative / genetic programs

(defpackage :scopes/csys/program/gene
  (:use :common-lisp)
  (:local-nicknames (:actor :scopes/core/actor)
                    (:csys :scopes/csys)
                    (:environ :scopes/csys/environ)
                    (:message :scopes/core/message)
                    (:util :scopes/util))
  (:export #:prog-g0))

(in-package :scopes/csys/program/gene)

;;;; gene-0: zero-only network for explicit messages and interactive testing

(defun prog-g0 ()
  (let ((val-action (csys:value-add))) 
    (csys:make-program
      (list '(:c00 :initial) (csys:std-proc :value val-action)
            '(:e00 :initial) (csys:eff-proc)
            ':default (csys:std-proc)))))