diff options
author | Matthias Benkard <code@mail.matthias.benkard.de> | 2008-02-16 21:58:48 +0100 |
---|---|---|
committer | Matthias Benkard <code@mail.matthias.benkard.de> | 2008-02-16 21:58:48 +0100 |
commit | c61f86dce1eb244fb775e74043070e32e6fdcaaf (patch) | |
tree | 7c6d0a4763921321c331462e8e9b925a8fa34beb /Lisp/libobjcl.lisp | |
parent | 23aeccec01d4e888885cca03c6557f2f0542ab0c (diff) |
Add module: instance-management.
darcs-hash:79549f0b837006321061a524ad376df397a9ab5a
Diffstat (limited to 'Lisp/libobjcl.lisp')
-rw-r--r-- | Lisp/libobjcl.lisp | 8 |
1 files changed, 8 insertions, 0 deletions
diff --git a/Lisp/libobjcl.lisp b/Lisp/libobjcl.lisp index 8cb490b..da85f31 100644 --- a/Lisp/libobjcl.lisp +++ b/Lisp/libobjcl.lisp @@ -167,6 +167,11 @@ (class :pointer) (backed-p :int)) +(defcfun ("objcl_object_backed_by_lisp_class_p" + %objcl-object-backed-by-lisp-class-p) + :int + (class :pointer)) + (defcvar *objcl-current-exception-lock* :pointer) (defcvar *objcl-current-exception* :pointer) @@ -884,3 +889,6 @@ separating parts by hyphens works nicely in all of the `:INVERT`, (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))) + +(defun objcl-object-backed-by-lisp-class-p/pointer (object-ptr) + (not (zerop (%objcl-object-backed-by-lisp-class-p object-ptr)))) |