From 396e27e3fa7e3b30347f9102e0bd30b2965ef1f4 Mon Sep 17 00:00:00 2001 From: Matthias Benkard Date: Thu, 6 Mar 2008 15:50:45 +0100 Subject: SUPER: Pass the superclass instead of the class itself to INVOKE-BY-NAME-SUPER-V. darcs-hash:95c3d39d11f5ee0c4b334f6316b01de9bc9dc9ce --- Lisp/method-definition.lisp | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) 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))) -- cgit v1.2.3