(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-g-param-spec
#:g-type-class-unref
#:registered-object-type-by-name
- #:g-type-children))
+ #: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)