src/: Improve formatting of big lambda-lists.

[sod] / src / method-impl.lisp

diff --git a/src/method-impl.lisp b/src/method-impl.lisp
index 91c22bb2aeebb84b79c2a20460a64a5d07d0d9db..6c751a4dff360cfa53d6b3f5d53e06bd369a2403 100644 (file)
--- a/src/method-impl.lisp
+++ b/src/method-impl.lisp
@@ -272,6 +272,9 @@ (defmethod sod-message-keyword-argument-lists
                             (c-function-keywords (sod-method-type method))))
                     direct-methods))))
 
                             (c-function-keywords (sod-method-type method))))
                     direct-methods))))
 

+(defmethod sod-message-check-methods
+    ((message sod-message) (class sod-class) direct-methods)
+  (compute-effective-method-keyword-arguments message class direct-methods))

 
 (defmethod shared-initialize :after
     ((method effective-method) slot-names &key direct-methods)
 
 (defmethod shared-initialize :after
     ((method effective-method) slot-names &key direct-methods)