projects
/
cl-gtk2.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (parent:
f56e5b6
)
Fix some compilation warnings
author
Dmitry Kalyanov
<Kalyanov.Dmitry@gmail.com>
Sun, 4 Oct 2009 19:02:56 +0000
(23:02 +0400)
committer
Dmitry Kalyanov
<Kalyanov.Dmitry@gmail.com>
Sun, 4 Oct 2009 19:02:56 +0000
(23:02 +0400)
glib/gobject.boxed.lisp
patch
|
blob
|
history
glib/gobject.foreign-gobject-subclassing.lisp
patch
|
blob
|
history
glib/gobject.gvalue.lisp
patch
|
blob
|
history
glib/gobject.meta.lisp
patch
|
blob
|
history
gtk/gtk.label.lisp
patch
|
blob
|
history
gtk/gtk.menu.lisp
patch
|
blob
|
history
gtk/gtk.tree-model.lisp
patch
|
blob
|
history
diff --git
a/glib/gobject.boxed.lisp
b/glib/gobject.boxed.lisp
index
4fe93b3
..
1234abd
100644
(file)
--- 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)
(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))
(tg:cancel-finalization proxy)
(setf (g-boxed-opaque-pointer proxy) nil))
@@
-338,8
+339,7
@@
(list thing)))
(defun parse-variants (parent variants)
(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)
(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
(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)
(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
(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
(file)
--- 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)
(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
(error "Setting of GParam is not implemented"))
;;Enums
diff --git
a/glib/gobject.meta.lisp
b/glib/gobject.meta.lisp
index
f987ad0
..
aaa54b2
100755
(executable)
--- 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))
(slot-boundp object 'pointer))
(defmethod slot-makunbound-using-class ((class gobject-class) object (slot gobject-effective-slot-definition))
+ (declare (ignore object))
nil)
nil)
diff --git
a/gtk/gtk.label.lisp
b/gtk/gtk.label.lisp
index
675b4ae
..
bd84e4c
100644
(file)
--- 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))
(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
(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
(file)
--- a/
gtk/gtk.menu.lisp
+++ b/
gtk/gtk.menu.lisp
@@
-72,11
+72,6
@@
(export 'menu-attached-to-widget)
(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)))
(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
(file)
--- 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)))
(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)))
(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)
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)
(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)
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))
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)
(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)
(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))
(defun notice-tree-node-insertion (tree node child index)
(declare (ignore node index))