From 5e7fc0e1ef806d113b3773c7628e4e4d68254274 Mon Sep 17 00:00:00 2001 From: Dmitry Kalyanov Date: Wed, 2 Sep 2009 01:04:16 +0400 Subject: [PATCH] Generation: try to call the (probable) type initializer before trying to generate defintions --- glib/gobject.generating.lisp | 4 ++++ 1 file changed, 4 insertions(+) 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)) -- 1.7.10.4