summaryrefslogtreecommitdiff
path: root/Lisp
diff options
context:
space:
mode:
authorMatthias Benkard <code@mail.matthias.benkard.de>2008-03-06 15:33:07 +0100
committerMatthias Benkard <code@mail.matthias.benkard.de>2008-03-06 15:33:07 +0100
commite45e6f8f2202c8ade30ff36063da7d1f2ee52d38 (patch)
treecbf21397f3ef87fcc22aea8847ddd949ce134b52 /Lisp
parentef730ebc5b41e6d20152b6564ddf8b8b640b9414 (diff)
SUPER: Correctly capture all method arguments.
darcs-hash:f53a200995f21b51f64916d2a57938d78e8acc5e
Diffstat (limited to 'Lisp')
-rw-r--r--Lisp/method-definition.lisp3
1 files changed, 1 insertions, 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)