X-Git-Url: https://git.distorted.org.uk/~mdw/sod/blobdiff_plain/7b78999c5e8c9e3f06f6ad565dbafcb676747249..6bc944c3cebb89056d9ed0b53eff6260909291a9:/src/class-utilities.lisp

diff --git a/src/class-utilities.lisp b/src/class-utilities.lisp
index 491671d..aa4ef17 100644
--- a/src/class-utilities.lisp
+++ b/src/class-utilities.lisp
@@ -196,4 +196,8 @@
 (defun vtable-name (class chain-head)
   (format nil "~A__vtable_~A" class (sod-class-nickname chain-head)))
 
+(export 'message-macro-name)
+(defun message-macro-name (class message)
+  (format nil "~A_~A" class (sod-message-name message)))
+
 ;;;----- That's all, folks --------------------------------------------------