From e0349dbdbae56013c258362378721adecd69fd12 Mon Sep 17 00:00:00 2001
Message-Id: <e0349dbdbae56013c258362378721adecd69fd12.1714673644.git.mdw@distorted.org.uk>
From: Mark Wooding <mdw@chiark.greenend.org.uk>
Date: Sun, 31 Oct 2004 11:41:06 +0000
Subject: [PATCH] Added library initialization
Organization: Straylight/Edgeware

From: espen <espen>

---
 glib/gtype.lisp | 8 ++++----
 1 file changed, 4 insertions(+), 4 deletions(-)

diff --git a/glib/gtype.lisp b/glib/gtype.lisp
index 02f9677..1ffa9f2 100644
--- a/glib/gtype.lisp
+++ b/glib/gtype.lisp
@@ -15,15 +15,15 @@
 ;; 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.17 2004-10-27 14:59:00 espen Exp $
+;; $Id: gtype.lisp,v 1.18 2004-10-31 11:41:06 espen Exp $
 
 (in-package "GLIB")
 
 (use-prefix "g")
 
-;(load-shared-library "libgobject-2.0" :init "g_type_init")
-
-;;;; 
+;; Initialize the glib type system
+(defbinding type-init () nil)
+(type-init)
 
 (deftype type-number () '(unsigned 32))
 
-- 
[mdw]