From 68c63e655ca55742bb601229d01b72df2ac9bda3 Mon Sep 17 00:00:00 2001 From: Dmitry Kalyanov Date: Thu, 6 Aug 2009 11:31:43 +0400 Subject: [PATCH] glib: make arguments in type decision procedure ignorable to inhibit warnings --- glib/gobject.boxed.lisp | 2 ++ 1 file changed, 2 insertions(+) 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) -- 1.7.10.4