From 7deed8c9bfb5aec2b461b2b112c9efb0cd538f8d 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): Simplify `parm-n'. --- src/method-impl.lisp | 7 ++----- 1 file changed, 2 insertions(+), 5 deletions(-) diff --git a/src/method-impl.lisp b/src/method-impl.lisp index d271481..9dd75b4 100644 --- a/src/method-impl.lisp +++ b/src/method-impl.lisp @@ -423,11 +423,8 @@ (sod-class-chains class)))) (n-entries (length chain-tails)) (entry-args (sod-message-argument-tail message)) - (parm-n (do ((prev "me" (car args)) - (args entry-args (cdr args))) - ((endp args) nil) - (when (eq (car args) :ellipsis) - (return prev)))) + (parm-n (let ((tail (last entry-args 2))) + (and tail (eq (cadr tail) :ellipsis) (car tail)))) (entry-target (codegen-target codegen)) ;; Effective method function details. -- 2.11.0