From: Dmitry Kalyanov <user@w32dev.(none)>
Date: Sat, 3 Oct 2009 21:28:28 +0000 (+0400)
Subject: Safer way to call GType initializers that works with lisps other than SBCL with linka... 
X-Git-Url: http://repo.macrolet.net/gitweb/?a=commitdiff_plain;h=33b76236014e701bb787f6ccd01d92d386da8adc;p=cl-gtk2.git

Safer way to call GType initializers that works with lisps other than SBCL with linkage table
---

diff --git a/glib/gobject.generating.lisp b/glib/gobject.generating.lisp
old mode 100644
new mode 100755
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))))