From 0659e7a29136823cba53c05fa94df2db29a3ddbc Mon Sep 17 00:00:00 2001 From: Matthias Benkard Date: Thu, 7 Feb 2008 22:16:58 +0100 Subject: Objective-C layer: Add objcl_create_imp and assorted functions. darcs-hash:586394a97ab02a3f8e258cd75c1230dff717a38e --- Lisp/libobjcl.lisp | 15 +++++++++++++++ 1 file changed, 15 insertions(+) (limited to 'Lisp/libobjcl.lisp') diff --git a/Lisp/libobjcl.lisp b/Lisp/libobjcl.lisp index 07f88ac..fd575d2 100644 --- a/Lisp/libobjcl.lisp +++ b/Lisp/libobjcl.lisp @@ -121,6 +121,21 @@ (defcfun objcl-get-yes :long) (defcfun objcl-get-no :long) +(defcfun ("objcl_create_imp" %objcl-create-imp) :pointer + (callback :pointer) + (argc :int) + (return-typespec :string) + (arg-typespecs (:array :string))) + +(defcfun ("objcl_acquire_lock" %objcl-release-lock) :pointer + (lock :pointer)) + +(defcfun ("objcl_release_lock" %objcl-acquire-lock) :pointer + (lock :pointer)) + +(defcvar *objcl-current-exception-lock* :pointer) +(defcvar *objcl-current-exception* :pointer) + (defun objcl-get-nil () ;; %OBJCL-GET-NIL can return NIL for CLISP, which CFFI refuses to ;; accept as an argument to POINTER-EQ. This is weird. -- cgit v1.2.3