;;;; cl-scopes/csys/environ - communication system environment

(defpackage :scopes/csys/environ
  (:use :common-lisp)
  (:local-nicknames (:actor :scopes/core/actor)
                    (:csys :scopes/csys)
                    (:message :scopes/core/message)
                    )
  (:export #:send #:send-message)
  )

(in-package :scopes/csys/environ)

(defun send-message (head data &key customer)
  (send (message:create head :data data :customer customer)))

(defun send (msg)
  (dolist (sn (find-sensors msg)) 
    (actor:send sn msg)))