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

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