diff options
| author | Matthias Benkard <code@mail.matthias.benkard.de> | 2007-09-16 23:12:45 +0200 |
|---|---|---|
| committer | Matthias Benkard <code@mail.matthias.benkard.de> | 2007-09-16 23:12:45 +0200 |
| commit | 69e4519cc42f43814ae617dd2d7fb8bf06599e5c (patch) | |
| tree | beeb51a291d5222317c8d93fdc25515d5ac62e42 /Lisp/libobjcl.lisp | |
| parent | a136324b6f1cd33a37ec902d46451e97290fa3da (diff) | |
PRIMITIVE-INVOKE: Simplify memory allocation.
darcs-hash:c123cb0cf9d6d6264904dde03970cd44bb7d3a01
Diffstat (limited to 'Lisp/libobjcl.lisp')
| -rw-r--r-- | Lisp/libobjcl.lisp | 6 |
1 files changed, 3 insertions, 3 deletions
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)) |