Separate enum and signals from gobject.type-info.object; fix emit-signals; fix style...

[cl-gtk2.git] / glib / gobject.foreign-gobject-subclassing.lisp

diff --git a/glib/gobject.foreign-gobject-subclassing.lisp b/glib/gobject.foreign-gobject-subclassing.lisp
index d41d5bb..039203d 100644 (file)
--- a/glib/gobject.foreign-gobject-subclassing.lisp
+++ b/glib/gobject.foreign-gobject-subclassing.lisp
@@ -202,13 +202,12 @@
        (debugf "Registering GObject type implementation ~A for type ~A~%" ',class ,name)
        (with-foreign-object (query 'g-type-query)
          (g-type-query (g-type-from-name ,parent) query)
-         (with-foreign-slots ((class-size instance-size) query g-type-query)
-           (g-type-register-static-simple (g-type-from-name ,parent)
-                                          ,name
-                                          (foreign-slot-value query 'g-type-query :class-size)
-                                          (callback c-class-init)
-                                          (foreign-slot-value query 'g-type-query :instance-size)
-                                          (callback c-instance-init) nil)))
+         (g-type-register-static-simple (g-type-from-name ,parent)
+                                        ,name
+                                        (foreign-slot-value query 'g-type-query :class-size)
+                                        (callback c-class-init)
+                                        (foreign-slot-value query 'g-type-query :instance-size)
+                                        (callback c-instance-init) nil))
        (add-interfaces ,name))
      (defmethod initialize-instance :before ((object ,class) &key pointer)
        (unless (or pointer (and (slot-boundp object 'gobject::pointer)