gir-tester.lisp

   1
   2 (in-package :gir)
   3
   4 (defun produce-binding ()
   5   (mapcar
   6    #'(lambda (gir)
   7        (parse-repository gir *gir-top-level-type-elements*))
   8    *gir-files*)
   9   (mapcar
  10    #'(lambda (gir)
  11        (parse-repository gir *gir-top-level-function-elements*))
  12    *gir-files*)
  13   (format t ";; the following types need to be defined in order to use this binding~%"
  14   (iterate
  15         (for unknown in *unknown-types*)
  16         (format t ";; ~T~A~%" unknown))
  17   (format t ";; thank you for your attention!~%")))
  18