glib/gobject.init.lisp

   1 (defpackage :cl-gtk2-init
   2   (:use :cl :glib))
   3
   4 (in-package :cl-gtk2-init)
   5
   6 (at-init ()
   7  (eval-when (:compile-toplevel :load-toplevel :execute)
   8    (cffi:define-foreign-library gobject
   9      ((:and :unix (:not :darwin)) (:or "libgobject-2.0.so.0" "libgobject-2.0.so"))
  10      (:darwin (:or "libgobject-2.0.0.dylib" "libgobject-2.0.dylib"))
  11      (:windows "libgobject-2.0-0.dll")
  12      (t "libgobject-2.0")))
  13
  14  (cffi:use-foreign-library gobject))
  15