From 23aeccec01d4e888885cca03c6557f2f0542ab0c Mon Sep 17 00:00:00 2001
From: Matthias Benkard <code@mail.matthias.benkard.de>
Date: Sat, 16 Feb 2008 21:58:13 +0100
Subject: Objective-C layer: Add functions for determining whether a class is
 managed by Lisp.

darcs-hash:2be32db4b0358556b007ad6737f689e04de1e7b3
---
 Objective-C/libobjcl.h |  6 ++++++
 Objective-C/libobjcl.m | 14 ++++++++++++++
 2 files changed, 20 insertions(+)

(limited to 'Objective-C')

diff --git a/Objective-C/libobjcl.h b/Objective-C/libobjcl.h
index c8c6766..26dca23 100644
--- a/Objective-C/libobjcl.h
+++ b/Objective-C/libobjcl.h
@@ -187,3 +187,9 @@ objcl_add_method (Class class,
 
 void
 objcl_finalise_class (Class class);
+
+int
+objcl_class_backed_by_lisp_class_p (Class class);
+
+void
+objcl_class_set_backed_by_lisp_class (Class class, int backed_p);
diff --git a/Objective-C/libobjcl.m b/Objective-C/libobjcl.m
index e7d8148..141c069 100644
--- a/Objective-C/libobjcl.m
+++ b/Objective-C/libobjcl.m
@@ -783,3 +783,17 @@ objcl_finalise_class (Class class)
   [method_list_lengths removeObjectForKey: class_name];
 #endif
 }
+
+
+int
+objcl_class_backed_by_lisp_class_p (Class class)
+{
+  return [class __objcl_isBackedByLispClass];
+}
+
+
+void
+objcl_class_set_backed_by_lisp_class (Class class, int backed_p)
+{
+  [class __objcl_setBackedByLispClass: backed_p];
+}
-- 
cgit v1.2.3