From 23aeccec01d4e888885cca03c6557f2f0542ab0c Mon Sep 17 00:00:00 2001 From: Matthias Benkard 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 --- Lisp/libobjcl.lisp | 17 +++++++++++++++++ 1 file changed, 17 insertions(+) (limited to 'Lisp/libobjcl.lisp') diff --git a/Lisp/libobjcl.lisp b/Lisp/libobjcl.lisp index 1a7e21a..8cb490b 100644 --- a/Lisp/libobjcl.lisp +++ b/Lisp/libobjcl.lisp @@ -156,6 +156,17 @@ (defcfun ("objcl_finalise_class" %objcl-finalise-class) :void (class :pointer)) +(defcfun ("objcl_class_backed_by_lisp_class_p" + %objcl-class-backed-by-lisp-class-p) + :int + (class :pointer)) + +(defcfun ("objcl_class_set_backed_by_lisp_class" + %objcl-class-set-backed-by-lisp-class) + :void + (class :pointer) + (backed-p :int)) + (defcvar *objcl-current-exception-lock* :pointer) (defcvar *objcl-current-exception* :pointer) @@ -867,3 +878,9 @@ separating parts by hyphens works nicely in all of the `:INVERT`, then (inc-pointer current-slot element-size) collecting (mem-ref current-slot :pointer)) (foreign-free array-pointer)))))) + +(defun objcl-class-backed-by-lisp-class-p/pointer (class-ptr) + (not (zerop (%objcl-class-backed-by-lisp-class-p class-ptr)))) + +(defun objcl-class-set-backed-by-lisp-class/pointer (class-ptr backed-p) + (%objcl-class-set-backed-by-lisp-class class-ptr (if backed-p 1 0))) -- cgit v1.2.3