Add two more DEFCTYPES to fix warnings.

[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 423214a..fe7ab80 100644 (file)
--- 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