From 5509eac5d00afd4e978ce1cf7e36cd16e23cb82b Mon Sep 17 00:00:00 2001 From: Olof-Joachim Frahm Date: Sat, 31 Aug 2013 00:14:11 +0200 Subject: [PATCH] Add two more DEFCTYPES to fix warnings. --- glib/glib.lisp | 1 + glib/gobject.foreign-gobject-subclassing.lisp | 1 + 2 files changed, 2 insertions(+) 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 -- 1.7.10.4