From a115ef0d3cfab649b0bb74799eba6896e6b44f21 Mon Sep 17 00:00:00 2001
From: Matthias Benkard <code@mail.matthias.benkard.de>
Date: Tue, 29 Jan 2008 20:55:24 +0100
Subject: Objective-C layer: Add function objcl_objc2_p.

darcs-hash:e9c9605cc47cc04e36e2ba9e60f76aea097e77bd
---
 Lisp/libobjcl.lisp | 5 +++++
 1 file changed, 5 insertions(+)

(limited to 'Lisp/libobjcl.lisp')

diff --git a/Lisp/libobjcl.lisp b/Lisp/libobjcl.lisp
index a726db8..752dcf4 100644
--- a/Lisp/libobjcl.lisp
+++ b/Lisp/libobjcl.lisp
@@ -83,6 +83,8 @@
 
 (defcfun ("objcl_get_runtime_type" %objcl-get-runtime-type) :string)
 
+(defcfun ("objcl_objc2_p" %objcl-objc2-p) :int)
+
 (defcfun ("objcl_sizeof_type" %objcl-sizeof-type) :long
   (typespec :string))
 
@@ -678,3 +680,6 @@ separating parts by hyphens works nicely in all of the `:INVERT`,
             runtime)
     (cond ((string= runtime "GNU") :gnu)
           ((string= runtime "NeXT") :next))))
+
+(defun objc-2.0-runtime-p ()
+  (not (zerop (%objcl-objc2-p))))
-- 
cgit v1.2.3