diff options
Diffstat (limited to 'Objective-C/libobjcl.m')
-rw-r--r-- | Objective-C/libobjcl.m | 7 |
1 files changed, 7 insertions, 0 deletions
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]; +} |