From 69e4519cc42f43814ae617dd2d7fb8bf06599e5c Mon Sep 17 00:00:00 2001 From: Matthias Benkard Date: Sun, 16 Sep 2007 23:12:45 +0200 Subject: PRIMITIVE-INVOKE: Simplify memory allocation. darcs-hash:c123cb0cf9d6d6264904dde03970cd44bb7d3a01 --- Lisp/libobjcl.lisp | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) (limited to 'Lisp/libobjcl.lisp') diff --git a/Lisp/libobjcl.lisp b/Lisp/libobjcl.lisp index 978bcfe..ffe166f 100644 --- a/Lisp/libobjcl.lisp +++ b/Lisp/libobjcl.lisp @@ -34,10 +34,10 @@ (defcfun ("objcl_invoke_with_types" %objcl-invoke-with-types) :pointer (argc :int) - (return_typespec (:pointer :char)) - (arg_typespecs (:pointer (:pointer :char))) + (return_typespec :string) + (arg_typespecs (:array :string)) (return_value (:pointer :void)) - (argv (:pointer (:pointer :void)))) + (argv (:array (:pointer :void)))) (defcfun ("objcl_find_class" %objcl-find-class) :pointer (class-name :string)) -- cgit v1.2.3