summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorMatthias Benkard <code@mail.matthias.benkard.de>2008-02-19 00:40:50 +0100
committerMatthias Benkard <code@mail.matthias.benkard.de>2008-02-19 00:40:50 +0100
commit982965f8e14194dd1660eb1faff9a3bd8be2a00b (patch)
tree2ce7dfa5d9cfad38a45f73502c4a46547b9b537f
parent272a6c36bf2c91985bf7ec87da8d4576393c6e84 (diff)
Manage Objective-C classes' Lisp backing state via pointers instead of via the class objects themselves.
darcs-hash:f737c8e7bea5b3a43101e50ff549f130e9f5cd68
-rw-r--r--Objective-C/libobjcl.m6
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]];
}