From: Dmitry Kalyanov <Kalyanov.Dmitry@gmail.com>
Date: Sun, 4 Oct 2009 19:02:56 +0000 (+0400)
Subject: Fix some compilation warnings
X-Git-Url: http://repo.macrolet.net/gitweb/?a=commitdiff_plain;h=280cc197440f3dec31bcbcd88b001b740be6e697;p=cl-gtk2.git

Fix some compilation warnings
---

diff --git a/glib/gobject.boxed.lisp b/glib/gobject.boxed.lisp
index 4fe93b3..1234abd 100644
--- a/glib/gobject.boxed.lisp
+++ b/glib/gobject.boxed.lisp
@@ -250,6 +250,7 @@
     (tg:finalize proxy (make-boxed-free-finalizer type native))))
 
 (defmethod cleanup-translated-object-for-callback ((type boxed-opaque-foreign-type) proxy native)
+  (declare (ignore native))
   (tg:cancel-finalization proxy)
   (setf (g-boxed-opaque-pointer proxy) nil))
 
@@ -338,8 +339,7 @@
       (list thing)))
 
 (defun parse-variants (parent variants)
-  (iter (for var-descr in variants)
-        (for (options variant-name . slots) in variants)
+  (iter (for (options variant-name . slots) in variants)
         (for variant =
              (make-var-structure-variant
               :discriminating-values (ensure-list options)
diff --git a/glib/gobject.foreign-gobject-subclassing.lisp b/glib/gobject.foreign-gobject-subclassing.lisp
index 618f870..b5f4cd0 100644
--- 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
diff --git a/glib/gobject.gvalue.lisp b/glib/gobject.gvalue.lisp
index 8e9fd05..f7922fa 100644
--- a/glib/gobject.gvalue.lisp
+++ b/glib/gobject.gvalue.lisp
@@ -109,6 +109,7 @@
   (g-value-set-pointer gvalue-ptr value))
 
 (defmethod set-gvalue-for-type (gvalue-ptr (type-numeric (eql +g-type-param+)) value)
+  (declare (ignore gvalue-ptr value))
   (error "Setting of GParam is not implemented"))
 
 ;;Enums
diff --git a/glib/gobject.meta.lisp b/glib/gobject.meta.lisp
index f987ad0..aaa54b2 100755
--- a/glib/gobject.meta.lisp
+++ b/glib/gobject.meta.lisp
@@ -265,4 +265,5 @@
   (slot-boundp object 'pointer))
 
 (defmethod slot-makunbound-using-class ((class gobject-class) object (slot gobject-effective-slot-definition))
+  (declare (ignore object))
   nil)
diff --git a/gtk/gtk.label.lisp b/gtk/gtk.label.lisp
index 675b4ae..bd84e4c 100644
--- a/gtk/gtk.label.lisp
+++ b/gtk/gtk.label.lisp
@@ -7,7 +7,7 @@
 
 (defun gtk-label-get-layout-offsets (label)
   (with-foreign-objects ((x :int) (y :int))
-    (gtk-label-get-layout-offsets label x y)
+    (%gtk-label-get-layout-offsets label x y)
     (list (mem-ref x :int) (mem-ref y :int))))
 
 (defcfun (label-select-region "gtk_label_select_region") :void
diff --git a/gtk/gtk.menu.lisp b/gtk/gtk.menu.lisp
index 6062169..7ddd0f8 100644
--- a/gtk/gtk.menu.lisp
+++ b/gtk/gtk.menu.lisp
@@ -72,11 +72,6 @@
 
 (export 'menu-attached-to-widget)
 
-(defcfun (radio-menu-item-group "gtk_radio_menu_item_get_group") (glist (g-object radio-menu-item) :free-from-foreign nil)
-  (radio-menu-item (g-object radio-menu-item)))
-
-(export 'radio-menu-item-group)
-
 (defcfun (tool-shell-rebuild-menu "gtk_tool_shell_rebuild_menu") :void
   (shell (g-object tool-shell)))
 
diff --git a/gtk/gtk.tree-model.lisp b/gtk/gtk.tree-model.lisp
index ebc59d0..d7a4bdc 100644
--- a/gtk/gtk.tree-model.lisp
+++ b/gtk/gtk.tree-model.lisp
@@ -96,8 +96,10 @@
       (setf (tree-iter-stamp iter) 0 (tree-iter-user-data iter) (first indices))
       t)))
 
-(defmethod tree-model-ref-node-impl ((model array-list-store) iter))
-(defmethod tree-model-unref-node-impl ((model array-list-store) iter))
+(defmethod tree-model-ref-node-impl ((model array-list-store) iter)
+  (declare (ignorable model iter)))
+(defmethod tree-model-unref-node-impl ((model array-list-store) iter)
+  (declare (ignorable model iter)))
 
 (defmethod tree-model-iter-next-impl ((model array-list-store) iter)
   (let ((n (tree-iter-user-data iter)))
@@ -106,6 +108,7 @@
       t)))
 
 (defmethod tree-model-iter-nth-child-impl ((model array-list-store) iter parent n)
+  (declare (ignorable parent))
   (setf (tree-iter-stamp iter) 0
         (tree-iter-user-data iter) n)
   t)
@@ -121,6 +124,7 @@
     path))
 
 (defmethod tree-model-iter-has-child-impl ((model array-list-store) iter)
+  (declare (ignorable iter))
   nil)
 
 (defgeneric tree-model-item (model iter-or-path))
@@ -506,10 +510,10 @@
             (tree-iter-user-data iter) (get-assigned-id store (tree-node-parent node))))))
 
 (defmethod tree-model-ref-node-impl ((store tree-lisp-store) iter)
-  )
+  (declare (ignorable iter)))
 
 (defmethod tree-model-unref-node-impl ((store tree-lisp-store) iter)
-  )
+  (declare (ignorable iter)))
 
 (defun notice-tree-node-insertion (tree node child index)
   (declare (ignore node index))