Add two more DEFCTYPES to fix warnings.

diff --git a/glib/glib.lisp b/glib/glib.lisp
index 9794185..744e0ef 100644 (file)
--- a/glib/glib.lisp
+++ b/glib/glib.lisp
@@ -218,6 +218,7 @@ In this example, for every @code{class}, @code{(initialize-gobject-class-g-type
   (ref :pointer)
   (unref :pointer)
   (get :pointer))
+(defctype g-source-callback-funcs (:struct g-source-callback-funcs))
 (defcstruct g-cond)
 (defctype g-cond (:struct g-cond))
 (defcstruct g-mutex)

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