export signal-lookup; defctype g-initially-unowned

diff --git a/glib/gobject.package.lisp b/glib/gobject.package.lisp
index 65e9895..8bf5caf 100644 (file)
--- a/glib/gobject.package.lisp
+++ b/glib/gobject.package.lisp
@@ -60,7 +60,8 @@
            #: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)
 

diff --git a/glib/gobject.structs.lisp b/glib/gobject.structs.lisp
index 6f5014f..175dcd2 100644 (file)
--- a/glib/gobject.structs.lisp
+++ b/glib/gobject.structs.lisp
@@ -89,6 +89,8 @@
   (ref-count :uint)
   (data :pointer))
 
+(defctype %g-initially-unowned %g-object)
+
 (defcstruct g-object-class
   (type-class g-type-class)
   (construct-properties :pointer)