[mcclim-cvs] CVS mcclim

[rstrandh]

Update of /project/mcclim/cvsroot/mcclim
In directory clnet:/tmp/cvs-serv22562

Modified Files:
	panes.lisp 
Log Message:
more IGNORE declarations


--- /project/mcclim/cvsroot/mcclim/panes.lisp	2007/03/20 01:43:55	1.182
+++ /project/mcclim/cvsroot/mcclim/panes.lisp	2007/07/21 13:18:59	1.183
@@ -27,7 +27,7 @@
 ;;; Free Software Foundation, Inc., 59 Temple Place - Suite 330,
 ;;; Boston, MA  02111-1307  USA.
 
-;;; $Id: panes.lisp,v 1.182 2007/03/20 01:43:55 ahefner Exp $
+;;; $Id: panes.lisp,v 1.183 2007/07/21 13:18:59 rstrandh Exp $
 
 (in-package :clim-internals)
 
@@ -904,6 +904,7 @@
 (defmethod change-space-requirements ((pane top-level-sheet-pane)
                                       &rest space-req-keys
                                       &key resize-frame &allow-other-keys)
+  (declare (ignore space-req-keys))
   (cond (*changing-space-requirements*
          ;; just record what we have
          (unless (find pane *changed-space-requirements* :key #'second)
@@ -999,6 +1000,7 @@
   ;;   application-frame. I am not sure if this is totally right.
   ;;
   ;; --GB 2003-03-16
+  (declare (ignore space-req-keys resize-frame))
   (let ((w (space-requirement-width (compose-space pane)))
         (h (space-requirement-height (compose-space pane))))
     (resize-sheet pane w h)