diff options
| -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))) |