X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=gtk%2Fgtk.package.lisp;h=15bce8e040714e14ba7e4535f74d1c1844683dae;hb=8b6767cf4830672f2d929b66031f561857b9f1cd;hp=ab19f5416cc9b2dff29fde7754d1065bfaf1bae1;hpb=5c7296a0dc78174654aa243805fdc0862b267c92;p=cl-gtk2.git

diff --git a/gtk/gtk.package.lisp b/gtk/gtk.package.lisp
index ab19f54..15bce8e 100644
--- a/gtk/gtk.package.lisp
+++ b/gtk/gtk.package.lisp
@@ -1,5 +1,5 @@
 (defpackage :gtk
-  (:use :cl :cffi :gobject :gdk :glib :metabang-bind :anaphora)
+  (:use :cl :cffi :gobject :gdk :glib)
   (:export #:register-object-type
            #:gtk-main
            #:gtk-main-quit
@@ -16,7 +16,12 @@
 
 (in-package :gtk)
 
-(load-foreign-library "libgtk-x11-2.0.so")
+(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")))
+
+(use-foreign-library gtk)
 
 #+sbcl (when (and (find-package "SB-EXT")
                   (find-symbol "SET-FLOATING-POINT-MODES" (find-package "SB-EXT")))