glib/gobject.package.lisp

   1 (defpackage :gobject
   2   (:use :cl :glib :cffi :tg :bind :anaphora :bordeaux-threads)
   3   (:export #:g-object
   4            #:register-object-type
   5            #:g-object-call-constructor
   6            #:register-flags-type
   7            #:register-enum-type
   8            #:g-type-from-object
   9            #:g-type-name
  10            #:g-type-from-name
  11            #:g-signal-connect
  12            #:define-g-object-class
  13            #:g-initially-unowned
  14            #:define-g-enum
  15            #:*lisp-name-package*
  16            #:define-g-boxed-class
  17            #:define-g-flags
  18            #:fixed-array
  19            #:g-boxed-inline
  20            #:g-boxed-ptr
  21            #:boxed-c-structure-name
  22            #:define-g-interface
  23            #:release
  24            #:using
  25            #:using*
  26            #:define-g-boxed-ref
  27            #:g-boxed-ref
  28            #:allocate-stable-pointer
  29            #:free-stable-pointer
  30            #:get-stable-pointer-value
  31            #:with-stable-pointer
  32            #:release*))
  33
  34 (in-package :gobject)
  35
  36 (load-foreign-library "libgobject-2.0.so")
  37
  38 (defvar *gobject-debug* nil)
  39
  40 (defun debugf (&rest args)
  41   (when *gobject-debug*
  42     (apply 'format t args)))