From e0877cc20ffad1cf33cf8be3211619c39c201795 Mon Sep 17 00:00:00 2001 From: Helmut Merz Date: Thu, 5 Jun 2025 15:02:21 +0200 Subject: [PATCH] provide message methods (content, customer): anything may be a message --- core/actor.lisp | 8 +++++++- 1 file changed, 7 insertions(+), 1 deletion(-) diff --git a/core/actor.lisp b/core/actor.lisp index 97455c1..3d2fcb5 100644 --- a/core/actor.lisp +++ b/core/actor.lisp @@ -18,6 +18,12 @@ ;;;; basic message implementation +(defgeneric content (msg) + (:method (msg) msg)) + +(defgeneric customer (msg) + (:method (msg) nil)) + (defclass message () ((content :reader content :initarg :content :initform nil) (customer :reader customer :initarg :customer :initform nil))) @@ -39,7 +45,7 @@ ch))) (defun stop (mb) - (send mb (message +quit-message+))) + (send mb +quit-message+)) (defun ac-loop (mb bhv) (let ((msg (async:rcv mb)))