From: Dmitry Kalyanov <Kalyanov.Dmitry@gmail.com>
Date: Fri, 17 Jul 2009 06:52:27 +0000 (+0400)
Subject: Fix gobject.generating: using numeric value comparison for GType
X-Git-Url: http://repo.macrolet.net/gitweb/?a=commitdiff_plain;h=eed633a94bd6275ed3e882b5966145185cd9f0e9;hp=15d0a7745c92ddb1664910aac23e60c20f18ff97;p=cl-gtk2.git

Fix gobject.generating: using numeric value comparison for GType
---

diff --git a/glib/gobject.generating.lisp b/glib/gobject.generating.lisp
index 7c3a807..79622f2 100644
--- a/glib/gobject.generating.lisp
+++ b/glib/gobject.generating.lisp
@@ -243,7 +243,7 @@
          (own-properties
           (remove-if-not (lambda (property)
                            (= g-type
-                              (g-class-property-definition-owner-type property)))
+                              (g-type-numeric (g-class-property-definition-owner-type property))))
                          properties)))
     `(define-g-object-class ,g-name ,name 
          (:superclass ,superclass-name