Typo.

[cl-gtk2.git] / glib / gobject.init.lisp

diff --git a/glib/gobject.init.lisp b/glib/gobject.init.lisp
old mode 100755 (executable)
new mode 100644 (file)
index b26470f..aabf1f7
--- a/glib/gobject.init.lisp
+++ b/glib/gobject.init.lisp
@@ -1,13 +1,15 @@
 (defpackage :cl-gtk2-init
-  (:use :cl))
+  (:use :cl :glib))
 
 (in-package :cl-gtk2-init)
 
-(eval-when (:compile-toplevel :load-toplevel :execute)
-  (cffi:define-foreign-library gobject
-    (:unix (:or "libgobject-2.0.so.0" "libgobject-2.0.so"))
-    (:windows "libgobject-2.0-0.dll")
-    (t "libgobject-2.0")))
+(at-init ()
+ (eval-when (:compile-toplevel :load-toplevel :execute)
+   (cffi:define-foreign-library gobject
+     ((:and :unix (:not :darwin)) (:or "libgobject-2.0.so.0" "libgobject-2.0.so"))
+     (:darwin (:or "libgobject-2.0.0.dylib" "libgobject-2.0.dylib"))
+     (:windows "libgobject-2.0-0.dll")
+     (t "libgobject-2.0")))
 
-(cffi:use-foreign-library gobject)
+ (cffi:use-foreign-library gobject))