X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=glib%2Fgobject.package.lisp;h=cbffca7118cd4147edcf917a6918c87dbef1abad;hb=eca6e0200e3dda5d9b756e84f88cfa434840556a;hp=05fb44815e9678054199040db76a60c4ab56cfdb;hpb=6856064edb2f180ef9003237e1907a3a9a134a81;p=cl-gtk2.git

diff --git a/glib/gobject.package.lisp b/glib/gobject.package.lisp
index 05fb448..cbffca7 100644
--- a/glib/gobject.package.lisp
+++ b/glib/gobject.package.lisp
@@ -1,5 +1,5 @@
 (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
@@ -43,11 +43,34 @@
            #:emit-signal
            #:g-value-unset
            #:g-value-zero
-           #:g-value-take-boxed))
+           #: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)