Replace all CFFI array types with pointer types.

darcs-hash:9a65a6771651aa2ff3c05411d4cd8042b9a1a98e

1 files 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))