diff options
Diffstat (limited to 'Lisp/libobjcl.lisp')
-rw-r--r-- | Lisp/libobjcl.lisp | 5 |
1 files changed, 4 insertions, 1 deletions
diff --git a/Lisp/libobjcl.lisp b/Lisp/libobjcl.lisp index e9e5f3c..79734cc 100644 --- a/Lisp/libobjcl.lisp +++ b/Lisp/libobjcl.lisp @@ -174,7 +174,7 @@ (defcfun ("objcl_object_backed_by_lisp_class_p" %objcl-object-backed-by-lisp-class-p) :int - (class :pointer)) + (instance :pointer)) (defcvar *objcl-current-exception-lock* :pointer) (defcvar *objcl-current-exception* :pointer) @@ -923,3 +923,6 @@ separating parts by hyphens works nicely in all of the `:INVERT`, (defun objcl-object-backed-by-lisp-class-p/pointer (object-ptr) (not (zerop (%objcl-object-backed-by-lisp-class-p object-ptr)))) + +(defun objcl-object-backed-by-lisp-class-p (instance) + (objcl-object-backed-by-lisp-class-p/pointer (pointer-to instance))) |