From 3aab0efa423fe20713c8cc02e8aabdf7fe84056b Mon Sep 17 00:00:00 2001 Message-Id: <3aab0efa423fe20713c8cc02e8aabdf7fe84056b.1716316029.git.mdw@distorted.org.uk> From: Mark Wooding Date: Tue, 15 Dec 2015 17:13:38 +0000 Subject: [PATCH] src/method-impl.lisp: Abolish the `emf-entry-tail' variable. Organization: Straylight/Edgeware From: Mark Wooding It's not different from `entry-args'. --- src/method-impl.lisp | 5 ++--- 1 file changed, 2 insertions(+), 3 deletions(-) diff --git a/src/method-impl.lisp b/src/method-impl.lisp index f0fd3fc..db1e8d6 100644 --- a/src/method-impl.lisp +++ b/src/method-impl.lisp @@ -420,10 +420,9 @@ (defmethod compute-method-entry-functions ((method basic-effective-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)))) + . entry-args)))) (flet ((setup-entry (tail) (let ((head (sod-class-chain-head tail))) @@ -516,7 +515,7 @@ (defmethod compute-method-entry-functions ((method basic-effective-method)) (effective-method-class method)) (let ((call (apply #'make-call-inst emf-name "sod__obj" - (mapcar #'argument-name emf-arg-tail)))) + (mapcar #'argument-name entry-args)))) (dolist (tail chain-tails) (setup-entry tail) (deliver-expr codegen entry-target call) -- [mdw]