chiark / gitweb /
Work around for an unknown bug
authorespen <espen>
Fri, 11 Mar 2005 19:13:05 +0000 (19:13 +0000)
committerespen <espen>
Fri, 11 Mar 2005 19:13:05 +0000 (19:13 +0000)
glib/ginterface.lisp

index 61e34f8588fd918e166b1ee002ee2c4ebdc7c8e5..ff8bf16bbc8756a5af10c22dabbd67cf7ea12b2a 100644 (file)
@@ -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))