summaryrefslogtreecommitdiff
path: root/Lisp
diff options
context:
space:
mode:
authorMatthias Benkard <code@mail.matthias.benkard.de>2008-03-18 22:59:25 +0100
committerMatthias Benkard <code@mail.matthias.benkard.de>2008-03-18 22:59:25 +0100
commitb2f4979a6b17a0a2c67c67c9c6d3c83a90b228af (patch)
treeb323a8ffaadca021fc6e3e5965cab86560a8c013 /Lisp
parent0c1a8882f03cdaf283e4289a3d2c5d89a1c01199 (diff)
Replace all CFFI array types with pointer types.
darcs-hash:9a65a6771651aa2ff3c05411d4cd8042b9a1a98e
Diffstat (limited to 'Lisp')
-rw-r--r--Lisp/libobjcl.lisp14
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))