Fix gobject.generating: using numeric value comparison for GType
authorDmitry Kalyanov <Kalyanov.Dmitry@gmail.com>
Fri, 17 Jul 2009 06:52:27 +0000 (10:52 +0400)
committerDmitry Kalyanov <Kalyanov.Dmitry@gmail.com>
Fri, 17 Jul 2009 06:52:27 +0000 (10:52 +0400)
glib/gobject.generating.lisp

index 7c3a807..79622f2 100644 (file)
          (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