diff options
| author | Matthias Benkard <code@mail.matthias.benkard.de> | 2008-03-06 15:50:45 +0100 |
|---|---|---|
| committer | Matthias Benkard <code@mail.matthias.benkard.de> | 2008-03-06 15:50:45 +0100 |
| commit | 396e27e3fa7e3b30347f9102e0bd30b2965ef1f4 (patch) | |
| tree | e82cefc6c232d1d99a4c38deb49805c23274bb50 | |
| parent | cd731e66e6e8d758d114ebef0bb75a98a79230ee (diff) | |
SUPER: Pass the superclass instead of the class itself to INVOKE-BY-NAME-SUPER-V.
darcs-hash:95c3d39d11f5ee0c4b334f6316b01de9bc9dc9ce
| -rw-r--r-- | Lisp/method-definition.lisp | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/Lisp/method-definition.lisp b/Lisp/method-definition.lisp index 14de1e9..cd32600 100644 --- a/Lisp/method-definition.lisp +++ b/Lisp/method-definition.lisp @@ -219,7 +219,8 @@ __super__" (first ,captured-args-sym) ,(generic-function-name->method-name name) - (find-objc-class ',(cadar lambda-list)) + (objcl-class-superclass + (find-objc-class ',(cadar lambda-list))) (or ,super-args-sym (rest ,captured-args-sym))))) (declare (ignorable (function super))) |