From d7e47285792eafc604e4994548de5c38f817a15b Mon Sep 17 00:00:00 2001 From: Mark Wooding Date: Sat, 29 Aug 2015 14:11:42 +0100 Subject: [PATCH] src/method-impl.lisp: Default method for `primary-method-class'. The `basic-direct-method' class seems like an appropriate choice. --- src/method-impl.lisp | 3 +++ 1 file changed, 3 insertions(+) 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 @@ (call-next-method) (primary-method-class message))) +(defmethod primary-method-class ((message simple-message)) + 'basic-direct-method) + ;;;-------------------------------------------------------------------------- ;;; Direct method classes. -- 2.11.0