Added declaration to get rid of a couple of warnings.

diff --git a/glib/gcallback.lisp b/glib/gcallback.lisp
index e4a33cb2c65af63eec92451452e1a7a2cead56b5..eb35f2d0af6845b13c84b3b6dc9a916c4dd21198 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