src/method-impl.lisp (compute-method-entry-functions): Reorder `let*'.

Currently the `method entry details' and `effective method function
details' blocks are independent, but they won't be soon.

diff --git a/src/method-impl.lisp b/src/method-impl.lisp
index e6368e7..d271481 100644 (file)
--- a/src/method-impl.lisp
+++ b/src/method-impl.lisp
@@ -416,14 +416,6 @@
                                 :class class
                                 :method method))
 
-        ;; Effective method function details.
-        (emf-name (effective-method-function-name method))
-        (ilayout-type (c-type (* (struct (ilayout-struct-tag class)))))
-        (emf-arg-tail (sod-message-no-varargs-tail message))
-        (emf-type (c-type (fun (lisp return-type)
-                               ("sod__obj" (lisp ilayout-type))
-                               . emf-arg-tail)))
-
         ;; Method entry details.
         (chain-tails (remove-if-not (lambda (super)
                                       (sod-subclass-p super message-class))
@@ -436,7 +428,15 @@
                     ((endp args) nil)
                   (when (eq (car args) :ellipsis)
                     (return prev))))
-        (entry-target (codegen-target codegen)))
+        (entry-target (codegen-target codegen))
+
+        ;; Effective method function details.
+        (emf-name (effective-method-function-name method))
+        (ilayout-type (c-type (* (struct (ilayout-struct-tag class)))))
+        (emf-arg-tail (sod-message-no-varargs-tail message))
+        (emf-type (c-type (fun (lisp return-type)
+                               ("sod__obj" (lisp ilayout-type))
+                               . emf-arg-tail))))
 
     (flet ((setup-entry (tail)
             (let ((head (sod-class-chain-head tail)))