Add condition type for access to unreadable properties; return NIL on access to unrea...

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

diff --git a/glib/gobject.package.lisp b/glib/gobject.package.lisp
index 65e9895..cbffca7 100644 (file)
--- a/glib/gobject.package.lisp
+++ b/glib/gobject.package.lisp
@@ -1,5 +1,5 @@
 (defpackage :gobject
-  (:use :cl :glib :cffi :tg :bind :anaphora :bordeaux-threads :iter)
+  (:use :cl :glib :cffi :tg :bordeaux-threads :iter :closer-mop)
   (:export #:g-object
            #:register-object-type
            #:g-object-call-constructor
@@ -60,11 +60,17 @@
            #:parse-g-param-spec
            #:g-type-class-unref
            #:registered-object-type-by-name
-           #:g-type-children))
+           #:g-type-children
+           #:g-signal-lookup))
 
 (in-package :gobject)
 
-(load-foreign-library "libgobject-2.0.so")
+(eval-when (:compile-toplevel :load-toplevel :execute)
+  (define-foreign-library gobject
+    (:unix (:or "libgobject-2.0.so.0" "libgobject-2.0.so"))
+    (t "libgobject-2.0")))
+
+(use-foreign-library gobject)
 
 (defvar *gobject-debug* nil)