cco/cl-scopes
3
0
Fork 0
Code Issues 1 Pull requests Releases Wiki Activity Actions

provide message methods (content, customer): anything may be a message

Browse source
This commit is contained in:
Helmut Merz 2025-06-05 15:02:21 +02:00
parent 1b4ad4c9c4
commit e0877cc20f
1 changed files with 7 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

8
core/actor.lisp
View file

@ -18,6 +18,12 @@
;;;; basic message implementation ;;;; basic message implementation
(defgeneric content (msg)
(:method (msg) msg))
(defgeneric customer (msg)
(:method (msg) nil))
(defclass message () (defclass message ()
((content :reader content :initarg :content :initform nil) ((content :reader content :initarg :content :initform nil)
(customer :reader customer :initarg :customer :initform nil))) (customer :reader customer :initarg :customer :initform nil)))
@ -39,7 +45,7 @@
ch))) ch)))
(defun stop (mb) (defun stop (mb)
(send mb (message +quit-message+))) (send mb +quit-message+))
(defun ac-loop (mb bhv) (defun ac-loop (mb bhv)
(let ((msg (async:rcv mb))) (let ((msg (async:rcv mb)))