X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=glib%2Fgobject.package.lisp;h=16b0c97063ae7e07acb165076a7cd23fb668a19c;hb=2da8ec51c87e16120d62969eb2468563e8caecef;hp=6412304e292196b1ce870778595caaf22f915ea1;hpb=02eda5690afca7870d40f4f26b2e1cc3031e3e2f;p=cl-gtk2.git

diff --git a/glib/gobject.package.lisp b/glib/gobject.package.lisp
index 6412304..16b0c97 100644
--- a/glib/gobject.package.lisp
+++ b/glib/gobject.package.lisp
@@ -1,6 +1,8 @@
 (defpackage :gobject
   (:use :cl :glib :cffi :tg :bordeaux-threads :iter :closer-mop :gobject.ffi)
   (:export #:g-type
+           #:g-type-string
+           #:g-type-numeric
            #:g-type-children
            #:g-type-parent
            #:g-type-designator
@@ -76,7 +78,6 @@
            #:g-initially-unowned
            #:define-g-enum
            #:*lisp-name-package*
-           #:define-g-boxed-class
            #:define-g-flags
            #:fixed-array
            #:g-boxed-inline
@@ -85,7 +86,6 @@
            #:release
            #:using
            #:using*
-           #:define-g-boxed-ref
            #:g-boxed-ref
            #:allocate-stable-pointer
            #:free-stable-pointer
@@ -100,7 +100,7 @@
            #:define-vtable
            #:g-type
            #:set-g-value
-           #:parse-gvalue
+           #:parse-g-value
            #:emit-signal
            #:g-value-unset
            #:g-value-zero
@@ -159,7 +159,34 @@
            #:flags-item-value
            #:flags-item-nick
            #:get-flags-items
-           #:stable-pointer-value)
+           #:stable-pointer-value
+           #:g-value-type
+           #:create-g-closure
+           #:g-object-call-constructor
+           #:g-object-call-get-property
+           #:g-object-call-set-property
+           #:register-enum-type
+           #:register-flags-type
+           #:register-object-type
+           #:generate-types-hierarchy-to-file
+           #:get-g-flags-definition
+           #:get-g-enum-definition
+           #:get-g-interface-definition
+           #:get-g-class-definition
+           #:*strip-prefix*
+           #:*lisp-name-exceptions*
+           #:*additional-properties*
+           #:g-type=
+           #:g-type/=
+           #:define-g-boxed-cstruct
+           #:define-g-boxed-opaque
+           #:g-boxed-opaque
+           #:g-boxed-opaque-pointer
+           #:define-g-boxed-variant-cstruct
+           #:g-boxed-foreign
+           #:boxed-related-symbols
+           #:define-boxed-opaque-accessor
+           #:glib-defcallback)
   (:documentation
    "CL-GTK2-GOBJECT is a binding to GObject type system.
 For information on GObject, see its @a[http://library.gnome.org/devel/gobject/stable/]{documentation}.
@@ -215,6 +242,6 @@ GObject uses GValues as a generic way to pass values. It is used when calling cl
 
 (defvar *gobject-debug* nil)
 
-(defun debugf (&rest args)
+(defmacro debugf (&rest args)
   (when *gobject-debug*
     (apply 'format t args)))
\ No newline at end of file