summaryrefslogtreecommitdiff
path: root/Lisp
diff options
context:
space:
mode:
Diffstat (limited to 'Lisp')
-rw-r--r--Lisp/class-definition.lisp3
1 files changed, 2 insertions, 1 deletions
diff --git a/Lisp/class-definition.lisp b/Lisp/class-definition.lisp
index 8c8672d..24db8b1 100644
--- a/Lisp/class-definition.lisp
+++ b/Lisp/class-definition.lisp
@@ -160,7 +160,8 @@ Because of this, one has to be very careful when using _:string_ as the
__defclass__, __define-objective-c-generic-function__,
__define-objective-c-method__"
- (let* ((objc-superclasses (remove-if-not
+ (let* ((name (intern (symbol-name name) '#:objective-c-classes))
+ (objc-superclasses (remove-if-not
#'(lambda (c)
(or (and (find-class c nil)
(subtypep (find-class c) 'id))