src/c-types-impl.lisp: Reorder `merge-keyword-lists' input lists.

[sod] / src / method-impl.lisp

diff --git a/src/method-impl.lisp b/src/method-impl.lisp
index e3fb6aef7ea28be5be24e95ed2fb13682579420b..16ae56e94a9f8462d5f1c60f538339a43e446d59 100644 (file)
--- a/src/method-impl.lisp
+++ b/src/method-impl.lisp
@@ -253,15 +253,15 @@ (defmethod method-keyword-argument-lists
     ((method effective-method) direct-methods)
   (with-slots (message) method
     (and (keyword-message-p message)
-        (cons (cons (c-function-keywords (sod-message-type message))
-                    (format nil "message ~A (at ~A)"
-                            message (file-location message)))
+        (cons (cons (format nil "message ~A (at ~A)"
+                            message (file-location message))
+                    (c-function-keywords (sod-message-type message)))
               (mapcar (lambda (m)
-                        (cons (c-function-keywords (sod-method-type m))
-                              (format nil "method for ~A on ~A (at ~A)"
+                        (cons (format nil "method for ~A on ~A (at ~A)"
                                       message
                                       (sod-method-class m)
-                                      (file-location m))))
+                                      (file-location m))
+                              (c-function-keywords (sod-method-type m))))
                       direct-methods)))))
 
 (defmethod shared-initialize :after