src/method-proto.lisp: Collect arguments in vanilla delegation trampolines.

[sod] / src / method-proto.lisp

diff --git a/src/method-proto.lisp b/src/method-proto.lisp
index d2ab7610f298596b5c3963e0173d05e1b674bba8..034768a489b325d68c2cb5e4874bb1f55b1723d0 100644 (file)
--- a/src/method-proto.lisp
+++ b/src/method-proto.lisp
@@ -478,7 +478,8 @@ (defun make-trampoline (codegen super body)
                          ((keyword-message-p message)
                           (cons (make-argument *sod-key-pointer*
                                                (c-type (* (void :const))))
-                                raw-args))))
+                                raw-args))
+                         (t raw-args)))
         (*keyword-struct-disposition* (if (effective-method-keywords method)
                                           :pointer :null)))
     (codegen-push codegen)