From a3028e348861cbe01ede6501df884646a0df262e Mon Sep 17 00:00:00 2001 From: Matthias Benkard Date: Wed, 5 Mar 2008 21:22:08 +0100 Subject: DEFINE-OBJECTIVE-C-CLASS: Reintern the class name in the OBJECTIVE-C-CLASSES package before proceeding. darcs-hash:16df3fe0db3dba48a115177015b53fb8402484c1 --- Lisp/class-definition.lisp | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) (limited to 'Lisp') 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)) -- cgit v1.2.3