Fix some compilation 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 618f870..b5f4cd0 100644 (file)
--- a/glib/gobject.foreign-gobject-subclassing.lisp
+++ b/glib/gobject.foreign-gobject-subclassing.lisp
@@ -208,6 +208,7 @@
                (gobject::g-object-has-reference object) t)))
      (progn
        ,@(iter (for (prop-name prop-type prop-accessor prop-reader prop-writer) in properties)
+               (declare (ignorable prop-type))
                (when prop-reader
                  (collect `(defun ,prop-accessor (object) (g-object-call-get-property object ,prop-name))))
                (when prop-writer