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 e6368e7652c9b7d36402f2ec343e239c18e00128..d271481d1d0186a850e228086724a2a5e64bb84a 100644 (file)
--- a/src/method-impl.lisp
+++ b/src/method-impl.lisp
@@ -416,14 +416,6 @@ (defmethod compute-method-entry-functions ((method basic-effective-method))
                                 :class class
                                 :method method))
 
                                 :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))
         ;; Method entry details.
         (chain-tails (remove-if-not (lambda (super)
                                       (sod-subclass-p super message-class))


@@ -436,7 +428,15 @@ (defmethod compute-method-entry-functions ((method basic-effective-method))
                     ((endp args) nil)
                   (when (eq (car args) :ellipsis)
                     (return prev))))
                     ((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)))
 
     (flet ((setup-entry (tail)
             (let ((head (sod-class-chain-head tail)))