Add at-init calls to define-g-enum and define-g-flags; fix the at-init implementation...

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

diff --git a/glib/gobject.type.lisp b/glib/gobject.type.lisp
index 22eb2ec..f72b125 100644 (file)
--- a/glib/gobject.type.lisp
+++ b/glib/gobject.type.lisp
@@ -5,7 +5,7 @@
 
 (defcfun (%g-type-init "g_type_init") :void)
 
-(at-init (%g-type-init))
+(at-init () (%g-type-init))
 
 (defcfun (g-type-name "g_type_name") :string
   "Returns the GType name