X-Git-Url: https://www.chiark.greenend.org.uk/ucgi/~mdw/git/sod/blobdiff_plain/3109662aca9c06495ac22c5c58b46e1c036aca5c..b0ff693c25bf81f935efa15a44fdad6ce95e9f91:/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 @@ (export 'vtable-name)
 (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 --------------------------------------------------