X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=gtk%2Fgtk.package.lisp;h=88b0b2b3ff31a1b844fd5dced4a84c2a3d5e165d;hb=1f9c939a43d645eaf55e4d375f6b1b609dd1c5bd;hp=287d4ee5ae80921624016a4b2d45134d579694cf;hpb=2871648baa0ee805157c3e815f013f4a378174d0;p=cl-gtk2.git

diff --git a/gtk/gtk.package.lisp b/gtk/gtk.package.lisp
old mode 100755
new mode 100644
index 287d4ee..88b0b2b
--- a/gtk/gtk.package.lisp
+++ b/gtk/gtk.package.lisp
@@ -32,15 +32,6 @@
 
 (in-package :gtk)
 
-(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))
-
 #+sbcl (when (and (find-package "SB-EXT")
                   (find-symbol "SET-FLOATING-POINT-MODES" (find-package "SB-EXT")))
-         (funcall (find-symbol "SET-FLOATING-POINT-MODES" (find-package "SB-EXT")) :traps nil))
\ No newline at end of file
+         (funcall (find-symbol "SET-FLOATING-POINT-MODES" (find-package "SB-EXT")) :traps nil))