Major cleanup of ffi abstraction layer

[clg] / atk / atk.lisp

diff --git a/atk/atk.lisp b/atk/atk.lisp
index 1f9a7315e8d09ab6723160944d57cfb5cf7aebb6..8a2cd7c29bf749fc7bdf0d82150c7f8187af280c 100644 (file)
--- a/atk/atk.lisp
+++ b/atk/atk.lisp
@@ -15,12 +15,14 @@
 ;; License along with this library; if not, write to the Free Software
 ;; Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA  02111-1307  USA
 
 ;; License along with this library; if not, write to the Free Software
 ;; Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA  02111-1307  USA
 

-;; $Id: atk.lisp,v 1.3 2004-10-31 11:44:45 espen Exp $
+;; $Id: atk.lisp,v 1.4 2004-11-06 21:39:57 espen Exp $

 
 (in-package "ATK")
 
 
 (eval-when (:compile-toplevel :load-toplevel :execute)
 
 (in-package "ATK")
 
 
 (eval-when (:compile-toplevel :load-toplevel :execute)

-  (init-types-in-library "libatk-1.0.so"))
+  (init-types-in-library 
+   #.(concatenate 'string (pkg-config:pkg-variable "atk" "libdir") 
+                         "/libatk-1.0.so") :prefix "atk_"))

 
 (define-types-by-introspection "Atk")
 
 (define-types-by-introspection "Atk")