Manage Objective-C classes' Lisp backing state via pointers instead of via the class objects themselves.

darcs-hash:f737c8e7bea5b3a43101e50ff549f130e9f5cd68

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]];
 }