Ensure that foreign libraries are defined and loaded at image startup

[cl-gtk2.git] / gdk / gdk.package.lisp

diff --git a/gdk/gdk.package.lisp b/gdk/gdk.package.lisp
index 9604c94..dd441c3 100755 (executable)
--- a/gdk/gdk.package.lisp
+++ b/gdk/gdk.package.lisp
@@ -5,15 +5,16 @@
 
 (in-package :gdk)
 
-(eval-when (:compile-toplevel :load-toplevel :execute)
-  (define-foreign-library gdk
-    (:unix (:or "libgdk-x11-2.0.so.0" "libgdk-x11-2.0.so"))
-    (:windows "libgdk-win32-2.0-0.dll")
-    (t "libgdk-2.0"))
-  (define-foreign-library gdk-pixbuf
-    (:unix (:or "libgdk_pixbuf-2.0.so.0" "libgdk_pixbuf-2.0.so"))
-    (:windows (:or "libgdk_pixbuf-win32-2.0-0" "libgdk_pixbuf-2.0-0.dll"))
-    (t "libgdk_pixbuf-2.0")))
+(glib:at-init ()
+ (eval-when (:compile-toplevel :load-toplevel :execute)
+   (define-foreign-library gdk
+     (:unix (:or "libgdk-x11-2.0.so.0" "libgdk-x11-2.0.so"))
+     (:windows "libgdk-win32-2.0-0.dll")
+     (t "libgdk-2.0"))
+   (define-foreign-library gdk-pixbuf
+     (:unix (:or "libgdk_pixbuf-2.0.so.0" "libgdk_pixbuf-2.0.so"))
+     (:windows (:or "libgdk_pixbuf-win32-2.0-0" "libgdk_pixbuf-2.0-0.dll"))
+     (t "libgdk_pixbuf-2.0")))
 
-(use-foreign-library gdk)
-(use-foreign-library gdk-pixbuf)
\ No newline at end of file
+ (use-foreign-library gdk)
+ (use-foreign-library gdk-pixbuf))
\ No newline at end of file