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

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