Safer way to call GType initializers that works with lisps other than SBCL with linka...

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

diff --git a/glib/gobject.generating.lisp b/glib/gobject.generating.lisp
old mode 100644 (file)
new mode 100755 (executable)
index c91cdcf..0abcfc9
--- a/glib/gobject.generating.lisp
+++ b/glib/gobject.generating.lisp
@@ -138,7 +138,9 @@
 (defun type-initializer-call (type-initializer)
   (etypecase type-initializer
     (string `(if (foreign-symbol-pointer ,type-initializer)
-                 (foreign-funcall ,type-initializer g-type)
+                 (foreign-funcall-pointer
+                  (foreign-symbol-pointer ,type-initializer) ()
+                  g-type)
                  (warn "Type initializer '~A' is not available" ,type-initializer)))
     (symbol `(funcall ',type-initializer))))