diff options
| -rw-r--r-- | Lisp/method-definition.lisp | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/Lisp/method-definition.lisp b/Lisp/method-definition.lisp index 741c6ca..a58b530 100644 --- a/Lisp/method-definition.lisp +++ b/Lisp/method-definition.lisp @@ -209,8 +209,8 @@ __super__" finally (let ((super-args-sym (gensym)) (captured-args-sym (gensym)) (class-arg-sym (gensym)) - (class-name (class-name (find-objc-class - (cadar lambda-list))))) + (class-name (intern (symbol-name (cadar lambda-list)) + '#:objective-c-classes))) (return `(defmethod ,(intern (symbol-name name) '#:objective-c-methods) |