Added declaration to get rid of a couple of warnings.

diff --git a/glib/gcallback.lisp b/glib/gcallback.lisp
index e2ae74d1e0233e5d4a5b94cdd3225b66b578dd9e..3eac603223828d586d99762915095ca5f1686766 100644 (file)
--- a/glib/gcallback.lisp
+++ b/glib/gcallback.lisp
@@ -15,7 +15,7 @@
 ;; License along with this library; if not, write to the Free Software
 ;; Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA  02111-1307  USA
 
 ;; License along with this library; if not, write to the Free Software
 ;; Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA  02111-1307  USA
 

-;; $Id: gcallback.lisp,v 1.22 2005-02-22 17:29:38 espen Exp $
+;; $Id: gcallback.lisp,v 1.23 2005-03-06 17:18:00 espen Exp $

 
 (in-package "GLIB")
 
 
 (in-package "GLIB")
 


@@ -36,6 +36,7 @@ (defcallback closure-marshal (nil
                              (param-values pointer)
                              (invocation-hint pointer) 
                              (callback-id unsigned-int))
                              (param-values pointer)
                              (invocation-hint pointer) 
                              (callback-id unsigned-int))

+  (declare (ignore gclosure invocation-hint))

   (callback-trampoline callback-id n-params param-values return-value))
 
 ;; Callback function for emission hooks
   (callback-trampoline callback-id n-params param-values return-value))
 
 ;; Callback function for emission hooks