[mcclim-cvs] CVS update: mcclim/panes.lisp

[Gilbert Baumann]

Update of /project/mcclim/cvsroot/mcclim
In directory common-lisp.net:/tmp/cvs-serv26542

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

Date: Thu Dec  1 13:06:41 2005
Author: gbaumann

Index: mcclim/panes.lisp
diff -u mcclim/panes.lisp:1.164 mcclim/panes.lisp:1.165
--- mcclim/panes.lisp:1.164	Wed Nov 30 11:30:50 2005
+++ mcclim/panes.lisp	Thu Dec  1 13:06:40 2005
@@ -27,7 +27,7 @@
 ;;; Free Software Foundation, Inc., 59 Temple Place - Suite 330,
 ;;; Boston, MA  02111-1307  USA.
 
-;;; $Id: panes.lisp,v 1.164 2005/11/30 10:30:50 gbaumann Exp $
+;;; $Id: panes.lisp,v 1.165 2005/12/01 12:06:40 gbaumann Exp $
 
 (in-package :clim-internals)
 
@@ -1704,6 +1704,7 @@
   (typep pane 'spacing-pane))
 
 (defmethod initialize-instance :after ((spacing spacing-pane) &key thickness contents &allow-other-keys)
+  (declare (ignorable thickness contents))
   (with-slots (user-width user-min-width user-max-width
                user-height user-min-height user-max-height)
       spacing
@@ -1819,6 +1820,7 @@
 (defclass viewport-pane (single-child-composite-pane) ())
 
 (defmethod compose-space ((pane viewport-pane) &key width height)
+  (declare (ignorable width height))
   ; I _think_ this is right, it certainly shouldn't be the requirements of the child.
   (make-space-requirement))
 
@@ -2433,6 +2435,7 @@
 	(call-next-method))))
 
 (defmethod compose-space ((pane clim-stream-pane) &key width height)
+  (declare (ignorable width height))
   (let ((w (bounding-rectangle-width (stream-output-history pane)))
         (h (bounding-rectangle-height (stream-output-history pane))))
     (make-space-requirement :width  w :min-width  w :max-width +fill+