From: Olof-Joachim Frahm <olof@macrolet.net>
Date: Fri, 30 Aug 2013 22:14:11 +0000 (+0200)
Subject: Add two more DEFCTYPES to fix warnings.
X-Git-Url: http://repo.macrolet.net/gitweb/?a=commitdiff_plain;h=5509eac5d00afd4e978ce1cf7e36cd16e23cb82b;p=cl-gtk2.git

Add two more DEFCTYPES to fix warnings.
---

diff --git a/glib/glib.lisp b/glib/glib.lisp
index 9794185..744e0ef 100644
--- 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
--- 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