diff options
| author | Matthias Benkard <code@mail.matthias.benkard.de> | 2008-03-06 15:33:07 +0100 |
|---|---|---|
| committer | Matthias Benkard <code@mail.matthias.benkard.de> | 2008-03-06 15:33:07 +0100 |
| commit | e45e6f8f2202c8ade30ff36063da7d1f2ee52d38 (patch) | |
| tree | cbf21397f3ef87fcc22aea8847ddd949ce134b52 | |
| parent | ef730ebc5b41e6d20152b6564ddf8b8b640b9414 (diff) | |
SUPER: Correctly capture all method arguments.
darcs-hash:f53a200995f21b51f64916d2a57938d78e8acc5e
| -rw-r--r-- | Lisp/method-definition.lisp | 3 |
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) |