summaryrefslogtreecommitdiff
path: root/Lisp
diff options
context:
space:
mode:
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))