(defpackage :gobject
- (:use :cl :glib :cffi :tg :bind :anaphora :bordeaux-threads :iter)
+ (:use :cl :glib :cffi :tg :bordeaux-threads :iter :closer-mop)
(:export #:g-object
#:register-object-type
#:g-object-call-constructor
#:parse-gvalue
#:emit-signal
#:g-value-unset
- #:g-value-zero))
+ #: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)