From 33b76236014e701bb787f6ccd01d92d386da8adc Mon Sep 17 00:00:00 2001 From: Dmitry Kalyanov Date: Sun, 4 Oct 2009 01:28:28 +0400 Subject: [PATCH] Safer way to call GType initializers that works with lisps other than SBCL with linkage table --- glib/gobject.generating.lisp | 4 +++- 1 file changed, 3 insertions(+), 1 deletion(-) mode change 100644 => 100755 glib/gobject.generating.lisp 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)))) -- 1.7.10.4