Typo.

[cl-gtk2.git] / glib / gobject.object-defs.lisp

diff --git a/glib/gobject.object-defs.lisp b/glib/gobject.object-defs.lisp
index c147371..cb03118 100644 (file)
--- a/glib/gobject.object-defs.lisp
+++ b/glib/gobject.object-defs.lisp
@@ -1,3 +1,8 @@
 (in-package :gobject)
 
-(define-g-object-class "GInitiallyUnowned" g-initially-unowned (:superclass g-object) ())
\ No newline at end of file
+(defclass g-initially-unowned (g-object)
+  ()
+  (:metaclass gobject-class)
+  (:g-type-name . "GInitiallyUnowned")
+  (:g-type-initializer . "g_initially_unowned_get_type")
+  (:documentation "Base class that has initial \"floating\" reference."))