From e45e6f8f2202c8ade30ff36063da7d1f2ee52d38 Mon Sep 17 00:00:00 2001 From: Matthias Benkard Date: Thu, 6 Mar 2008 15:33:07 +0100 Subject: SUPER: Correctly capture all method arguments. darcs-hash:f53a200995f21b51f64916d2a57938d78e8acc5e --- Lisp/method-definition.lisp | 3 +-- 1 file changed, 1 insertion(+), 2 deletions(-) diff --git a/Lisp/method-definition.lisp b/Lisp/method-definition.lisp index 0484ca9..e69f5c1 100644 --- a/Lisp/method-definition.lisp +++ b/Lisp/method-definition.lisp @@ -213,8 +213,7 @@ __super__" '#:objective-c-methods) argtypes-start ,@type-specifiers argtypes-end ,@qualifiers ,lambda-list - (let ((,captured-args-sym - (list ,@(rest arg-names)))) + (let ((,captured-args-sym (list ,@arg-names))) (flet ((super (&rest ,super-args-sym) (invoke-by-name-super-v (first ,captured-args-sym) -- cgit v1.2.3