diff options
| author | Matthias Benkard <code@mail.matthias.benkard.de> | 2008-03-05 21:22:08 +0100 |
|---|---|---|
| committer | Matthias Benkard <code@mail.matthias.benkard.de> | 2008-03-05 21:22:08 +0100 |
| commit | a3028e348861cbe01ede6501df884646a0df262e (patch) | |
| tree | 4c05cb40cc02dab152d797f5a9f0c2c36ad64c8a | |
| parent | 933b4cdc43d621c902a70534ec772495edc178bd (diff) | |
DEFINE-OBJECTIVE-C-CLASS: Reintern the class name in the OBJECTIVE-C-CLASSES package before proceeding.
darcs-hash:16df3fe0db3dba48a115177015b53fb8402484c1
| -rw-r--r-- | Lisp/class-definition.lisp | 3 |
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)) |