From: Dmitry Kalyanov Date: Thu, 30 Jul 2009 11:47:47 +0000 (+0400) Subject: glib: do not call undefined foreign type initializers, but issue a warning X-Git-Url: http://repo.macrolet.net/gitweb/?a=commitdiff_plain;h=af4ec71c473889ee569392b4442a1024a82982ba;p=cl-gtk2.git glib: do not call undefined foreign type initializers, but issue a warning --- 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)