summaryrefslogtreecommitdiff
path: root/Lisp
diff options
context:
space:
mode:
authorMatthias Benkard <code@mail.matthias.benkard.de>2008-03-06 15:50:45 +0100
committerMatthias Benkard <code@mail.matthias.benkard.de>2008-03-06 15:50:45 +0100
commit396e27e3fa7e3b30347f9102e0bd30b2965ef1f4 (patch)
treee82cefc6c232d1d99a4c38deb49805c23274bb50 /Lisp
parentcd731e66e6e8d758d114ebef0bb75a98a79230ee (diff)
SUPER: Pass the superclass instead of the class itself to INVOKE-BY-NAME-SUPER-V.
darcs-hash:95c3d39d11f5ee0c4b334f6316b01de9bc9dc9ce
Diffstat (limited to 'Lisp')
-rw-r--r--Lisp/method-definition.lisp3
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)))