Changed to use symbols from the CLG-SYSTEM package

diff --git a/glib/gtype.lisp b/glib/gtype.lisp
index 6cab228055ca2352c8914ce9b6576e5cef398cbf..13c5c7ee99aae43d23488953de70df8065eae56c 100644 (file)
--- a/glib/gtype.lisp
+++ b/glib/gtype.lisp
@@ -15,7 +15,7 @@
 ;; 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: gtype.lisp,v 1.13 2001-11-12 22:24:29 espen Exp $
+;; $Id: gtype.lisp,v 1.14 2002-01-14 01:16:08 espen Exp $

 
 (in-package "GLIB")
 
 
 (in-package "GLIB")
 


@@ -139,7 +139,7 @@ (defun %init-types-in-library (pathname ignore)
 
 (defmacro init-types-in-library (filename &key ignore)
   (%init-types-in-library
 
 (defmacro init-types-in-library (filename &key ignore)
   (%init-types-in-library

-   (format nil "~A/~A" user::gtk-library-path filename) ignore))
+   (format nil "~A/~A" *gtk-library-path* filename) ignore))