use :skip-ellipsis feature of do-arguments-of-function
Thu Dec 23 08:43:28 PST 2010 attila.lendvai@gmail.com
* use :skip-ellipsis feature of do-arguments-of-function
diff -rN -u old-verrazano/src/backends/cffi/writers.lisp new-verrazano/src/backends/cffi/writers.lisp
--- old-verrazano/src/backends/cffi/writers.lisp 2014-07-22 18:42:06.000000000 -0700
+++ new-verrazano/src/backends/cffi/writers.lisp 2014-07-22 18:42:06.000000000 -0700
@@ -270,9 +270,8 @@
(returns-of node))))
(when returns
(process-gccxml-node backend returns))
- (do-arguments-of-function (argument node)
- (unless (typep argument 'gccxml:ellipsis)
- (process-gccxml-node backend (type-of argument))))
+ (do-arguments-of-function (argument node :skip-ellipsis t)
+ (process-gccxml-node backend (type-of argument)))
(format t "~%(cffi:defcfun (~S ~A) "
(or (awhen (mangled-of node)
(remove-internal-suffix it))