X-Git-Url: https://www.chiark.greenend.org.uk/ucgi/~mdw/git/sod/blobdiff_plain/deef49564bd7cd4b9d046569fdc367457f8893a0..a469422e9be4244c098a309e78aa3b761cf0a5ec:/src/method-proto.lisp

diff --git a/src/method-proto.lisp b/src/method-proto.lisp
index d2ab761..034768a 100644
--- 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)