summaryrefslogtreecommitdiff
path: root/Lisp
diff options
context:
space:
mode:
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)))