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

fix message creation: must be derived from actor:message

Browse source
This commit is contained in:
Helmut Merz 2025-06-21 11:47:05 +02:00
parent 8d81c57f52
commit a8ffd8bd72
1 changed files with 4 additions and 4 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

8
core/message.lisp
View file

@ -3,7 +3,8 @@
(defpackage :scopes/core/message (defpackage :scopes/core/message
(:use :common-lisp) (:use :common-lisp)
(:local-nicknames (:actor :scopes/core/actor) (:local-nicknames (:actor :scopes/core/actor)
(:shape :scopes/shape)) (:shape :scopes/shape)
(:util :scopes/util))
(:export #:message-meta #:message #:create (:export #:message-meta #:message #:create
#:head #:data)) #:head #:data))
@ -14,9 +15,8 @@
(defun message-meta () (defun message-meta ()
(make-instance 'shape:record-meta :head-fields '(:domain :action :class :item))) (make-instance 'shape:record-meta :head-fields '(:domain :action :class :item)))
(defclass message (shape:record) (defclass message (shape:record actor:message)
((shape:meta :initform (message-meta) :allocation :class) ((shape:meta :initform (message-meta) :allocation :class)))
(actor:customer :accessor customer :initarg :customer :initform nil)))
(defun create (head &key data customer) (defun create (head &key data customer)
(shape:create 'message :head head :data data :customer customer)) (shape:create 'message :head head :data data :customer customer))