summaryrefslogtreecommitdiff
path: root/Lisp
diff options
context:
space:
mode:
authorMatthias Benkard <code@mail.matthias.benkard.de>2008-01-29 20:55:24 +0100
committerMatthias Benkard <code@mail.matthias.benkard.de>2008-01-29 20:55:24 +0100
commita115ef0d3cfab649b0bb74799eba6896e6b44f21 (patch)
treeff3a7eb38fab5ec373436a9cfd46c131faf48092 /Lisp
parent64c0dae830fa3319bb31cd1cd9ec659ea1d72ef8 (diff)
Objective-C layer: Add function objcl_objc2_p.
darcs-hash:e9c9605cc47cc04e36e2ba9e60f76aea097e77bd
Diffstat (limited to 'Lisp')
-rw-r--r--Lisp/libobjcl.lisp5
1 files changed, 5 insertions, 0 deletions
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))))