-(eval-when (:compile-toplevel :load-toplevel :execute)
- (define-foreign-library gtk
- (:unix (:or "libgtk-x11-2.0.so.0" "libgtk-x11-2.0.so"))
- (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")))