src/class-finalize-impl.lisp: Reorder `flet'/`macrolet'.

[sod] / src / method-proto.lisp

diff --git a/src/method-proto.lisp b/src/method-proto.lisp
index 6a1b6400f57d8c0fa1828b88b53f9e14981fb564..41e63548d44784df74e4f402c74bd0bf22eee1bc 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.