20 lines
546 B
Common Lisp
20 lines
546 B
Common Lisp
;;;; 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)))
|
|
|