From 982965f8e14194dd1660eb1faff9a3bd8be2a00b Mon Sep 17 00:00:00 2001 From: Matthias Benkard Date: Tue, 19 Feb 2008 00:40:50 +0100 Subject: Manage Objective-C classes' Lisp backing state via pointers instead of via the class objects themselves. darcs-hash:f737c8e7bea5b3a43101e50ff549f130e9f5cd68 --- Objective-C/libobjcl.m | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) (limited to 'Objective-C') 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]]; } -- cgit v1.2.3