X-Git-Url: https://www.chiark.greenend.org.uk/ucgi/~mdw/git/sod/blobdiff_plain/91116f94e1683dc902a7e10eadd6186fe7d7255c..bce58d373fad048a8e30bd1794953f7ebb081540:/src/method-proto.lisp?ds=inline

diff --git a/src/method-proto.lisp b/src/method-proto.lisp
index 048c924..d019997 100644
--- a/src/method-proto.lisp
+++ b/src/method-proto.lisp
@@ -428,7 +428,8 @@ (defun make-trampoline (codegen super body)
 			   (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)