added :debug t/nil support for example binding generation
Thu Dec 23 08:41:53 PST 2010 attila.lendvai@gmail.com
* added :debug t/nil support for example binding generation
diff -rN -u old-verrazano/generate-example-bindings.lisp new-verrazano/generate-example-bindings.lisp
--- old-verrazano/generate-example-bindings.lisp 2014-07-29 03:43:05.000000000 -0700
+++ new-verrazano/generate-example-bindings.lisp 2014-07-29 03:43:05.000000000 -0700
@@ -11,15 +11,17 @@
(defun generate-binding* (name headers &rest args
&key (working-directory (verrazano::system-relative-pathname
:verrazano "example-bindings/"))
+ (debug nil)
(gccxml-flags "-I/usr/include")
&allow-other-keys)
(format *debug-io* "~%~%; *** Processing binding ~S~%" name)
- (remove-from-plistf args :working-directory :gccxml-flags)
+ (remove-from-plistf args :working-directory :gccxml-flags :debug)
(block try
(handler-bind ((serious-condition
(lambda (error)
- (warn "Failed to generated binding for ~S, error: ~A" name error)
- (return-from try))))
+ (unless debug
+ (warn "Failed to generated binding for ~S, error: ~A" name error)
+ (return-from try)))))
(let ((*print-right-margin* 100))
(generate-binding (append
(list :cffi