From: Dmitry Kalyanov <Kalyanov.Dmitry@gmail.com>
Date: Tue, 1 Sep 2009 21:04:16 +0000 (+0400)
Subject: Generation: try to call the (probable) type initializer before trying to generate... 
X-Git-Url: http://repo.macrolet.net/gitweb/?a=commitdiff_plain;h=5e7fc0e1ef806d113b3773c7628e4e4d68254274;p=cl-gtk2.git

Generation: try to call the (probable) type initializer before trying to generate defintions
---

diff --git a/glib/gobject.generating.lisp b/glib/gobject.generating.lisp
index cac7f48..5ac99de 100644
--- a/glib/gobject.generating.lisp
+++ b/glib/gobject.generating.lisp
@@ -234,6 +234,10 @@
     (write-string "_get_type" stream)))
 
 (defun get-g-class-definition (type &optional lisp-name-package)
+  (when (and (stringp type) (zerop (g-type-numeric type)))
+    (let ((type-init-name (probable-type-init-name type)))
+      (when (foreign-symbol-pointer type-init-name)
+        (foreign-funcall-pointer (foreign-symbol-pointer type-init-name) () :int))))
   (let* ((*lisp-name-package* (or lisp-name-package *lisp-name-package* *package*))
          (g-type (ensure-g-type type))
          (g-name (g-type-name g-type))