From c61f86dce1eb244fb775e74043070e32e6fdcaaf Mon Sep 17 00:00:00 2001
From: Matthias Benkard <code@mail.matthias.benkard.de>
Date: Sat, 16 Feb 2008 21:58:48 +0100
Subject: Add module: instance-management.

darcs-hash:79549f0b837006321061a524ad376df397a9ab5a
---
 Objective-C/libobjcl.h | 3 +++
 Objective-C/libobjcl.m | 7 +++++++
 2 files changed, 10 insertions(+)

(limited to 'Objective-C')

diff --git a/Objective-C/libobjcl.h b/Objective-C/libobjcl.h
index 26dca23..4b26fae 100644
--- a/Objective-C/libobjcl.h
+++ b/Objective-C/libobjcl.h
@@ -193,3 +193,6 @@ objcl_class_backed_by_lisp_class_p (Class class);
 
 void
 objcl_class_set_backed_by_lisp_class (Class class, int backed_p);
+
+int
+objcl_object_backed_by_lisp_class_p (id object);
diff --git a/Objective-C/libobjcl.m b/Objective-C/libobjcl.m
index 141c069..cd35b86 100644
--- a/Objective-C/libobjcl.m
+++ b/Objective-C/libobjcl.m
@@ -797,3 +797,10 @@ objcl_class_set_backed_by_lisp_class (Class class, int backed_p)
 {
   [class __objcl_setBackedByLispClass: backed_p];
 }
+
+
+int
+objcl_object_backed_by_lisp_class_p (id object)
+{
+  return [[object class] __objcl_isBackedByLispClass];
+}
-- 
cgit v1.2.3