summaryrefslogtreecommitdiff
path: root/Lisp
diff options
context:
space:
mode:
Diffstat (limited to 'Lisp')
-rw-r--r--Lisp/method-definition.lisp4
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)