src/method-impl.lisp: Default method for `primary-method-class'.

The `basic-direct-method' class seems like an appropriate choice.

diff --git a/src/method-impl.lisp b/src/method-impl.lisp
index f3673d8968a638130b3210aab9999b3e755ef629..d76b37e5494352fef7495ed40046ed7c6f5e599e 100644 (file)
--- a/src/method-impl.lisp
+++ b/src/method-impl.lisp
@@ -98,6 +98,9 @@ (defmethod sod-message-method-class
       (call-next-method)
       (primary-method-class message)))
 
       (call-next-method)
       (primary-method-class message)))
 

+(defmethod primary-method-class ((message simple-message))
+  'basic-direct-method)
+

 ;;;--------------------------------------------------------------------------
 ;;; Direct method classes.
 
 ;;;--------------------------------------------------------------------------
 ;;; Direct method classes.