From af4ec71c473889ee569392b4442a1024a82982ba Mon Sep 17 00:00:00 2001 From: Dmitry Kalyanov Date: Thu, 30 Jul 2009 15:47:47 +0400 Subject: [PATCH] glib: do not call undefined foreign type initializers, but issue a warning --- glib/gobject.generating.lisp | 4 +++- 1 file changed, 3 insertions(+), 1 deletion(-) diff --git a/glib/gobject.generating.lisp b/glib/gobject.generating.lisp index 06bf496..cac7f48 100644 --- a/glib/gobject.generating.lisp +++ b/glib/gobject.generating.lisp @@ -136,7 +136,9 @@ (defun type-initializer-call (type-initializer) (etypecase type-initializer - (string `(foreign-funcall ,type-initializer g-type)) + (string `(if (foreign-symbol-pointer ,type-initializer) + (foreign-funcall ,type-initializer g-type) + (warn "Type initializer '~A' is not available" ,type-initializer))) (symbol `(funcall ',type-initializer)))) (defun meta-property->slot (class-name property) -- 1.7.10.4