(defpackage :gobject
- (:use :cl :glib :cffi :tg :bind :anaphora :bordeaux-threads)
+ (:use :cl :glib :cffi :tg :bordeaux-threads :iter :closer-mop)
(:export #:g-object
#:register-object-type
#:g-object-call-constructor
#:free-stable-pointer
#:get-stable-pointer-value
#:with-stable-pointer
- #:release*))
+ #:release*
+ #:disown-boxed-ref
+ #:pointer
+ #:g-type-interface
+ #:g-value
+ #:register-object-type-implementation
+ #:ensure-g-type
+ #:define-vtable
+ #:g-type
+ #:set-g-value
+ #:parse-gvalue
+ #:emit-signal
+ #:g-value-unset
+ #:g-value-zero
+ #:g-value-take-boxed
+ #:g-value-init
+ #:g-class-property-definition
+ #:g-class-property-definition-name
+ #:g-class-property-definition-type
+ #:g-class-property-definition-readable
+ #:g-class-property-definition-writable
+ #:g-class-property-definition-constructor
+ #:g-class-property-definition-constructor-only
+ #:g-class-property-definition-owner-type
+ #:g-type-class-ref
+ #:g-object-class
+ #:g-param-spec
+ #:type-instance
+ #:parse-g-param-spec
+ #:g-type-class-unref
+ #:registered-object-type-by-name
+ #:g-type-children
+ #:g-signal-lookup))
(in-package :gobject)
-(load-foreign-library "libgobject-2.0.so")
+(eval-when (:compile-toplevel :load-toplevel :execute)
+ (define-foreign-library gobject
+ (:unix (:or "libgobject-2.0.so.0" "libgobject-2.0.so"))
+ (t "libgobject-2.0")))
+
+(use-foreign-library gobject)
(defvar *gobject-debug* nil)