From 53705da2ac13bfab2c9133f46e5bebcff0306cc8 Mon Sep 17 00:00:00 2001 From: Matthias Benkard Date: Sun, 17 Feb 2008 18:19:25 +0100 Subject: Improve the CLASS-DEFINITION tests. darcs-hash:9f7b9a58aab5c7dfed8e9df10c41381935bf772c --- Lisp/libobjcl.lisp | 5 ++++- 1 file changed, 4 insertions(+), 1 deletion(-) (limited to 'Lisp/libobjcl.lisp') 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))) -- cgit v1.2.3