[mcclim-cvs] CVS mcclim

[rstrandh]

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

Modified Files:
	recording.lisp 
Log Message:
Added IGNORE declarations to avoid warnings about unused variables.


--- /project/mcclim/cvsroot/mcclim/recording.lisp	2007/07/15 12:38:37	1.133
+++ /project/mcclim/cvsroot/mcclim/recording.lisp	2007/07/18 16:31:27	1.134
@@ -1083,6 +1083,7 @@
 
 (defmethod replay-output-record :around
     ((record gs-ink-mixin) stream &optional region x-offset y-offset)
+  (declare (ignore region x-offset y-offset))
   (with-drawing-options (stream :ink (graphics-state-ink record))
     (call-next-method)))
 
@@ -1111,6 +1112,7 @@
 
 (defmethod replay-output-record :around
     ((record gs-clip-mixin) stream &optional region x-offset y-offset)
+  (declare (ignore region x-offset y-offset))
   (with-drawing-options (stream :clipping-region (graphics-state-clip record))
     (call-next-method)))
 
@@ -1140,6 +1142,7 @@
 
 (defmethod replay-output-record :around
     ((record gs-line-style-mixin) stream &optional region x-offset y-offset)
+  (declare (ignore region x-offset y-offset))
   (with-drawing-options (stream :line-style (graphics-state-line-style record))
     (call-next-method)))
 
@@ -1166,6 +1169,7 @@
 
 (defmethod replay-output-record :around
     ((record gs-text-style-mixin) stream &optional region x-offset y-offset)
+  (declare (ignore region x-offset y-offset))
   (with-drawing-options (stream :text-style (graphics-state-text-style record))
     (call-next-method)))
 
@@ -1688,7 +1692,6 @@
 					:text-style text-style)) )
         (ascent (text-style-ascent text-style (sheet-medium stream)))
         (descent (text-style-descent text-style (sheet-medium stream)))
-        (height (+ ascent descent))
 	(transform (medium-transformation medium)))
    (setf (values point-x point-y)
 	 (transform-position transform point-x point-y))