X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=glib%2Fgobject.foreign-gobject-subclassing.lisp;fp=glib%2Fgobject.foreign-gobject-subclassing.lisp;h=fe7ab80ac685a51bf0a4ba5e653318fb7ec605f4;hb=5509eac5d00afd4e978ce1cf7e36cd16e23cb82b;hp=423214a6188e9ac6220553ec0d2e8541e4c94015;hpb=4bbf2e9b27bbd8f64ff65566ca46d27902b30ae6;p=cl-gtk2.git

diff --git a/glib/gobject.foreign-gobject-subclassing.lisp b/glib/gobject.foreign-gobject-subclassing.lisp
index 423214a..fe7ab80 100644
--- a/glib/gobject.foreign-gobject-subclassing.lisp
+++ b/glib/gobject.foreign-gobject-subclassing.lisp
@@ -110,6 +110,7 @@
         (methods (vtable-methods name items)))
     `(progn
        (defcstruct ,cstruct-name ,@(mapcar #'vtable-item->cstruct-item items))
+       (defctype ,cstruct-name (:struct ,cstruct-name))
        (setf (gethash ,type-name *vtables*)
              (make-vtable-description :type-name ,type-name
                                       :cstruct-name ',cstruct-name