From a8ffd8bd72cb2fd6d3152683461ce8267c5c3160 Mon Sep 17 00:00:00 2001 From: Helmut Merz Date: Sat, 21 Jun 2025 11:47:05 +0200 Subject: [PATCH] fix message creation: must be derived from actor:message --- core/message.lisp | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) diff --git a/core/message.lisp b/core/message.lisp index 3731781..b0e8795 100644 --- a/core/message.lisp +++ b/core/message.lisp @@ -3,7 +3,8 @@ (defpackage :scopes/core/message (:use :common-lisp) (:local-nicknames (:actor :scopes/core/actor) - (:shape :scopes/shape)) + (:shape :scopes/shape) + (:util :scopes/util)) (:export #:message-meta #:message #:create #:head #:data)) @@ -14,9 +15,8 @@ (defun message-meta () (make-instance 'shape:record-meta :head-fields '(:domain :action :class :item))) -(defclass message (shape:record) - ((shape:meta :initform (message-meta) :allocation :class) - (actor:customer :accessor customer :initarg :customer :initform nil))) +(defclass message (shape:record actor:message) + ((shape:meta :initform (message-meta) :allocation :class))) (defun create (head &key data customer) (shape:create 'message :head head :data data :customer customer))