From: Mark Wooding <mdw@distorted.org.uk>
Date: Sat, 29 Aug 2015 13:11:42 +0000 (+0100)
Subject: src/method-impl.lisp: Default method for `primary-method-class'.
X-Git-Tag: 0.2.0~47
X-Git-Url: https://www.chiark.greenend.org.uk/ucgi/~mdw/git/sod/commitdiff_plain/d7e47285792eafc604e4994548de5c38f817a15b?ds=inline

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 f3673d8..d76b37e 100644
--- 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)))
 
+(defmethod primary-method-class ((message simple-message))
+  'basic-direct-method)
+
 ;;;--------------------------------------------------------------------------
 ;;; Direct method classes.