From: espen <espen>
Date: Fri, 11 Mar 2005 19:13:05 +0000 (+0000)
Subject: Work around for an unknown bug
X-Git-Tag: clg-0-90~37
X-Git-Url: https://www.chiark.greenend.org.uk/ucgi/~mdw/git/clg/commitdiff_plain/f413c2fba27e936c0755f0b7601c18d31af9b2d1

Work around for an unknown bug
---

diff --git a/glib/ginterface.lisp b/glib/ginterface.lisp
index 61e34f8..ff8bf16 100644
--- a/glib/ginterface.lisp
+++ b/glib/ginterface.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
 
-;; $Id: ginterface.lisp,v 1.10 2005/03/11 10:56:58 espen Exp $
+;; $Id: ginterface.lisp,v 1.11 2005/03/11 19:13:05 espen Exp $
 
 (in-package "GLIB")
 
@@ -62,7 +62,8 @@ (defmethod shared-initialize ((class ginterface-class) names &key name gtype)
 	   (find-type-number class-name)
 	   (register-type class-name 
 	    (or (first gtype) (default-type-init-name class-name))))))
-    (type-default-interface-ref type-number))
+;    (type-default-interface-ref type-number)
+    )
   (call-next-method))