Reordered cases in translate-to-foreign for GObject pointers

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

diff --git a/glib/gobject.type.lisp b/glib/gobject.type.lisp
index b8c1638..12dff51 100644 (file)
--- 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