X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=glib%2Fgobject.object-defs.lisp;h=785e194f3b9bac5005511948ae5190159f32f3ea;hb=081b34b89b88e9db6b3177e71b616869560bb1b0;hp=e9168bbd0bb7e3aa4b04327ceac488768db2888a;hpb=0d03b82a77743d2ea5ef69bea08735fa12857d92;p=cl-gtk2.git

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