diff options
| -rw-r--r-- | Objective-C/libobjcl.m | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/Objective-C/libobjcl.m b/Objective-C/libobjcl.m index 4f4b922..87e4c28 100644 --- a/Objective-C/libobjcl.m +++ b/Objective-C/libobjcl.m @@ -863,7 +863,7 @@ objcl_finalise_class (Class class) int objcl_class_backed_by_lisp_class_p (Class class) { - return [lisp_backed_classes containsObject: class]; + return [lisp_backed_classes containsObject: [NSValue valueWithPointer: class]]; } @@ -871,9 +871,9 @@ void objcl_class_set_backed_by_lisp_class (Class class, int backed_p) { if (backed_p) - [lisp_backed_classes addObject: class]; + [lisp_backed_classes addObject: [NSValue valueWithPointer: class]]; else - [lisp_backed_classes removeObject: class]; + [lisp_backed_classes removeObject: [NSValue valueWithPointer: class]]; } |