src/class-output.lisp: Fix missing parentheses around `me' in message macros.

[sod] / src / class-output.lisp

diff --git a/src/class-output.lisp b/src/class-output.lisp
index 806de356886f423dbab797e68fe925970b1bfd35..ee77a2c843a1ab7f75329b753fe796675db88443 100644 (file)
--- a/src/class-output.lisp
+++ b/src/class-output.lisp
@@ -185,7 +185,7 @@ (defmethod hook-output progn ((class sod-class) (reason (eql :h)) sequencer)
             (when varargsp
               (format stream "#ifdef SOD__HAVE_VARARGS_MACROS~%"))
             (format stream "#define ~A(~{~A~^, ~}) ~
             (when varargsp
               (format stream "#ifdef SOD__HAVE_VARARGS_MACROS~%"))
             (format stream "#define ~A(~{~A~^, ~}) ~

-                                  ~A->_vt->~A.~A(~{~A~^, ~})~%"
+                                  (~A)->_vt->~A.~A(~{~A~^, ~})~%"

                     (message-macro-name class entry)
                     (nreverse in-names)
                     me
                     (message-macro-name class entry)
                     (nreverse in-names)
                     me