src/method-proto.lisp: Set `*keyword-struct-disposition*' properly.

[sod] / src / method-proto.lisp

diff --git a/src/method-proto.lisp b/src/method-proto.lisp
index 048c924..d019997 100644 (file)
--- a/src/method-proto.lisp
+++ b/src/method-proto.lisp
@@ -428,7 +428,8 @@
                           (cons (make-argument *sod-key-pointer*
                                                (c-type (* (void :const))))
                                 raw-args))))
-        (*keyword-struct-disposition* t))
+        (*keyword-struct-disposition* (if (effective-method-keywords method)
+                                          :pointer :null)))
     (codegen-push codegen)
     (ensure-ilayout-var codegen super)
     (when (and (keyword-message-p message)