Merge branches 'mdw/kwargs-fixes' and 'mdw/c11-fixes'

[sod] / src / method-proto.lisp

diff --git a/src/method-proto.lisp b/src/method-proto.lisp
index 36237d63897bae5fd6f19fd65d4c470c0f766540..60a10eb8f4122515addb2927c2133e255aae823e 100644 (file)
--- a/src/method-proto.lisp
+++ b/src/method-proto.lisp
@@ -86,7 +86,7 @@ (defclass method-entry ()
               :reader method-entry-chain-head)
    (chain-tail :initarg :chain-tail :type sod-class
               :reader method-entry-chain-tail)
-   (role :initarg :role :type (or :keyword null) :reader method-entry-role))
+   (role :initarg :role :type (or keyword null) :reader method-entry-role))
   (:documentation
    "An entry point into an effective method.