kludge generation of functiontype to emit a :pointer
Thu Dec 23 08:43:05 PST 2010 attila.lendvai@gmail.com
* kludge generation of functiontype to emit a :pointer
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-27 23:15:31.000000000 -0700
+++ new-verrazano/src/backends/cffi/writers.lisp 2014-07-27 23:15:31.000000000 -0700
@@ -143,6 +143,10 @@
(write-string ")"))
(write-string ":pointer"))))
+(defmethod write-cffi-type ((node gccxml:functiontype))
+ ;; TODO FIXME KLUDGE
+ (write-string ":pointer"))
+
(defmethod write-cffi-type ((node gccxml:arraytype))
(write-cffi-type (type-of node))
(bind ((max (slot-value node 'gccxml:max)))