X-Git-Url: https://git.distorted.org.uk/~mdw/sod/blobdiff_plain/5135d00a5e5184b2ba955a1f9e538ad603848466..388ca1cdcd263e6ad8731e9680d4097a6820e87a:/src/method-proto.lisp

diff --git a/src/method-proto.lisp b/src/method-proto.lisp
index b821912..048c924 100644
--- a/src/method-proto.lisp
+++ b/src/method-proto.lisp
@@ -63,6 +63,15 @@
 
    This protocol is used by `simple-message' subclasses."))
 
+(export 'method-keyword-argument-lists)
+(defgeneric method-keyword-argument-lists (method direct-methods)
+  (:documentation
+   "Returns a list of keyword argument lists to be merged.
+
+   This should return a list suitable for passing to `merge-keyword-lists',
+   i.e., each element should be a pair consisting of a list of `argument'
+   objects and a string describing the source of the argument list."))
+
 (export 'compute-sod-effective-method)
 (defgeneric compute-sod-effective-method (message class)
   (:documentation