From: Dmitry Kalyanov <Kalyanov.Dmitry@gmail.com>
Date: Thu, 6 Aug 2009 07:31:43 +0000 (+0400)
Subject: glib: make arguments in type decision procedure ignorable to inhibit warnings
X-Git-Url: http://repo.macrolet.net/gitweb/?a=commitdiff_plain;h=68c63e655ca55742bb601229d01b72df2ac9bda3;p=cl-gtk2.git

glib: make arguments in type decision procedure ignorable to inhibit warnings
---

diff --git a/glib/gobject.boxed.lisp b/glib/gobject.boxed.lisp
index 05e9bcf..61eacee 100644
--- a/glib/gobject.boxed.lisp
+++ b/glib/gobject.boxed.lisp
@@ -388,11 +388,13 @@
 (defun generate-proxy-type-decision-procedure (str)
   (let ((native (gensym "NATIVE-")))
     `(lambda (,native)
+       (declare (ignorable ,native))
        ,(generate-proxy-type-decision-procedure-1 str native))))
 
 (defun generate-native-type-decision-procedure (str)
   (let ((proxy (gensym "PROXY-")))
     `(lambda (,proxy)
+       (declare (ignorable ,proxy))
        ,(generate-native-type-decision-procedure-1 str proxy))))
 
 (defun compile-proxy-type-decision-procedure (str)