glib/gobject.meta: remove slot initargs before call-next-method in make-instance

[cl-gtk2.git] / glib / gobject.package.lisp

diff --git a/glib/gobject.package.lisp b/glib/gobject.package.lisp
index 8727e7c..cbffca7 100644 (file)
--- 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
@@ -30,11 +30,47 @@
            #:get-stable-pointer-value
            #:with-stable-pointer
            #:release*
-           #:disown-boxed-ref))
+           #: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)