X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=glib%2Fgobject.type.lisp;h=12dff51cce22341b0b03e178c639c6fc004bfe0a;hb=81e0009ee540f42c64ab1670a4fe936681fbdb6c;hp=b8c1638ea065c4a325a9db2c668e0fdc44e5b5cb;hpb=d698b1bf570296ce54a543fdae4233d731f42f72;p=cl-gtk2.git

diff --git a/glib/gobject.type.lisp b/glib/gobject.type.lisp
index b8c1638..12dff51 100644
--- a/glib/gobject.type.lisp
+++ b/glib/gobject.type.lisp
@@ -48,6 +48,7 @@
   (n-children (:pointer :uint)))
 
 (defun g-type-children (g-type)
+  (setf g-type (ensure-g-type g-type))
   (with-foreign-object (n-children :uint)
     (let ((g-types-ptr (%g-type-children g-type n-children)))
       (prog1