X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=gtk%2Fgtk.package.lisp;h=287d4ee5ae80921624016a4b2d45134d579694cf;hb=1400ba1159491bd203e0c5e25e475fd4f84cb73b;hp=61d36fbf8473b37fed9e6b86e117984483a581ff;hpb=89b8d7f826c33afc4f8b14a0c7f284c975551dec;p=cl-gtk2.git

diff --git a/gtk/gtk.package.lisp b/gtk/gtk.package.lisp
old mode 100755
new mode 100644
index 61d36fb..287d4ee
--- a/gtk/gtk.package.lisp
+++ b/gtk/gtk.package.lisp
@@ -32,13 +32,14 @@
 
 (in-package :gtk)
 
-(eval-when (:compile-toplevel :load-toplevel :execute)
-  (define-foreign-library gtk
-    (:unix (:or "libgtk-x11-2.0.so.0" "libgtk-x11-2.0.so"))
-    (:windows (:or "libgtk-2.0-0.dll" "libgtk-win32-2.0-0.dll"))
-    (t "libgtk-2.0")))
+(at-init ()
+  (eval-when (:compile-toplevel :load-toplevel :execute)
+    (define-foreign-library gtk
+      (:unix (:or "libgtk-x11-2.0.so.0" "libgtk-x11-2.0.so"))
+      (:windows (:or "libgtk-2.0-0.dll" "libgtk-win32-2.0-0.dll"))
+      (t "libgtk-2.0")))
 
-(use-foreign-library gtk)
+  (use-foreign-library gtk))
 
 #+sbcl (when (and (find-package "SB-EXT")
                   (find-symbol "SET-FLOATING-POINT-MODES" (find-package "SB-EXT")))