src/method-impl.lisp (compute-method-entry-functions): Simplify `parm-n'.

diff --git a/src/method-impl.lisp b/src/method-impl.lisp
index d271481d1d0186a850e228086724a2a5e64bb84a..9dd75b42d082a679ca54e28a9ff2eb6797fd333a 100644 (file)
--- a/src/method-impl.lisp
+++ b/src/method-impl.lisp
@@ -423,11 +423,8 @@ (defmethod compute-method-entry-functions ((method basic-effective-method))
                                             (sod-class-chains class))))
         (n-entries (length chain-tails))
         (entry-args (sod-message-argument-tail message))
                                             (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.
         (entry-target (codegen-target codegen))
 
         ;; Effective method function details.