X-Git-Url: https://www.chiark.greenend.org.uk/ucgi/~mdw/git/sod/blobdiff_plain/1ec065092f42b4b0be3dcb833f3f5f24451701fd..7aa55c1174f170016d970a3f5e86d5115f02611c:/src/method-proto.lisp

diff --git a/src/method-proto.lisp b/src/method-proto.lisp
index 1298431..5687802 100644
--- a/src/method-proto.lisp
+++ b/src/method-proto.lisp
@@ -95,6 +95,15 @@ (defun compute-effective-method-keyword-arguments
 							     direct-methods
 							     state))))
 
+(export 'sod-message-check-methods)
+(defgeneric sod-message-check-methods (message class direct-methods)
+  (:documentation
+   "Check that the applicable methods for a MESSAGE are compatible.
+
+   Specifically, given the DIRECT-METHODS applicable for the message when
+   received by an instance of CLASS, signal errors if the methods don't
+   match the MESSAGE or each other."))
+
 (export 'sod-message-effective-method-class)
 (defgeneric sod-message-effective-method-class (message)
   (:documentation