From 3dc0dd23ac56ce8bb7c1364ebdbd29cfdaa357a5 Mon Sep 17 00:00:00 2001 From: Mark Wooding Date: Sun, 30 Aug 2015 10:58:38 +0100 Subject: [PATCH] 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. --- src/method-impl.lisp | 18 +++++++++--------- 1 file changed, 9 insertions(+), 9 deletions(-) diff --git a/src/method-impl.lisp b/src/method-impl.lisp index e6368e7..d271481 100644 --- 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))) -- 2.11.0