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

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