From b2f4979a6b17a0a2c67c67c9c6d3c83a90b228af Mon Sep 17 00:00:00 2001 From: Matthias Benkard Date: Tue, 18 Mar 2008 22:59:25 +0100 Subject: Replace all CFFI array types with pointer types. darcs-hash:9a65a6771651aa2ff3c05411d4cd8042b9a1a98e --- Lisp/libobjcl.lisp | 14 +++++++------- 1 file changed, 7 insertions(+), 7 deletions(-) diff --git a/Lisp/libobjcl.lisp b/Lisp/libobjcl.lisp index 421c014..dd0b3b0 100644 --- a/Lisp/libobjcl.lisp +++ b/Lisp/libobjcl.lisp @@ -48,9 +48,9 @@ (argc :int) (superclass-for-send-super :pointer) (return-typespec :string) - (arg-typespecs (:array :string)) + (arg-typespecs :pointer) ;array (return-value (:pointer :void)) - (argv (:array (:pointer :void)))) + (argv :pointer)) ;array (defcfun ("objcl_find_class" %objcl-find-class) :pointer (class-name :string)) @@ -145,7 +145,7 @@ (callback :pointer) (argc :int) (return-typespec :string) - (arg-typespecs (:array :string))) + (arg-typespecs :pointer)) ;array (defcfun ("objcl_acquire_lock" %objcl-acquire-lock) :pointer (lock :pointer)) @@ -157,10 +157,10 @@ (class-name :string) (superclass :pointer) (protocol-numer :int) - (protocol-names (:array :string)) + (protocol-names :pointer) ;array (ivar-number :int) - (ivar-names (:array :string)) - (ivar-typespecs (:array :string))) + (ivar-names :pointer) ;array + (ivar-typespecs :pointer)) ;array (defcfun ("objcl_add_method" %objcl-add-method) :void (class :pointer) @@ -169,7 +169,7 @@ (callback :pointer) (argc :int) (return-typespec :string) - (arg-typespecs (:array :string)) + (arg-typespecs :pointer) ;array (signature :string) (registered-p :int)) -- cgit v1.2.3