(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)