(require 'asdf)
(asdf:operate 'asdf:load-op 'verrazano)

(verrazano:create-binding 
  (verrazano:setup-build "gccxml" 
												 (make-pathname :directory "tmp" :device "/"))
  "testsuite/cairo/cairo.binding"
  "testsuite/cairo/cairo-library.lisp"
  :cffi-backend)
(quit)