Changes necessary to allow saving of core images with clg.

[clg] / pango / pango.lisp

diff --git a/pango/pango.lisp b/pango/pango.lisp
index 09a22652caae21ca2f57ba3bcd9f59feb740dbcf..18f5be0b7f45744d3d58f471a9e034799aa77e8b 100644 (file)
--- a/pango/pango.lisp
+++ b/pango/pango.lisp
@@ -15,11 +15,19 @@
 ;; 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: pango.lisp,v 1.5 2004-10-31 11:45:39 espen Exp $
+;; $Id: pango.lisp,v 1.8 2005-03-06 17:26:23 espen Exp $
 
 (in-package "PANGO")
 
 (eval-when (:compile-toplevel :load-toplevel :execute)
-  (init-types-in-library "libpango-1.0.so" :ignore ("_pango_fribidi_get_type")))
+  (init-types-in-library #.(concatenate 'string 
+                         (pkg-config:pkg-variable "pango" "libdir")
+                         "/libpango-1.0.so") :prefix "pango_")
+  (init-types-in-library #.(concatenate 'string 
+                         (pkg-config:pkg-variable "pango" "libdir")
+                         "/libpangoxft-1.0.so") :prefix "pango_xft")
+  (init-types-in-library #.(concatenate 'string 
+                         (pkg-config:pkg-variable "pango" "libdir")
+                         "/libpangoft2-1.0.so") :prefix "pango_fc"))
 
 (define-types-by-introspection "Pango")