From cb2858af09521a572ba8d222f1d1b21324ab6f44 Mon Sep 17 00:00:00 2001 From: Matthias Benkard Date: Tue, 4 Mar 2008 16:59:42 +0100 Subject: Acquire the exception lock when returning from a callback. darcs-hash:f644e3e364ebb7bd2c81aa2c7f83a4887ac644d8 --- Lisp/libobjcl.lisp | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) (limited to 'Lisp/libobjcl.lisp') diff --git a/Lisp/libobjcl.lisp b/Lisp/libobjcl.lisp index d8e8b07..d038c62 100644 --- a/Lisp/libobjcl.lisp +++ b/Lisp/libobjcl.lisp @@ -145,10 +145,10 @@ (return-typespec :string) (arg-typespecs (:array :string))) -(defcfun ("objcl_acquire_lock" %objcl-release-lock) :pointer +(defcfun ("objcl_acquire_lock" %objcl-acquire-lock) :pointer (lock :pointer)) -(defcfun ("objcl_release_lock" %objcl-acquire-lock) :pointer +(defcfun ("objcl_release_lock" %objcl-release-lock) :pointer (lock :pointer)) (defcfun ("objcl_create_class" %objcl-create-class) :pointer -- cgit v1.2.3