[mcclim-cvs] CVS mcclim/Backends/PostScript

[rstrandh]

Update of /project/mcclim/cvsroot/mcclim/Backends/PostScript
In directory clnet:/tmp/cvs-serv29801/Backends/PostScript

Modified Files:
	font.lisp 
Log Message:
Removed an unused local variable and added some IGNORE declarations to
remove a few compiler warnings.



--- /project/mcclim/cvsroot/mcclim/Backends/PostScript/font.lisp	2006/03/29 10:43:38	1.10
+++ /project/mcclim/cvsroot/mcclim/Backends/PostScript/font.lisp	2007/07/19 06:17:32	1.11
@@ -94,7 +94,6 @@
   (unless end (setq end (length string)))
   (let* ((font-info (or (gethash font-name *font-metrics*)
                         (error "Unknown font ~S." font-name)))
-         (char-names (font-info-char-names font-info))
          (char-metrics (font-info-char-infos font-info))
          (scale (/ size 1000))
          (width 0) (upper-width 0)
@@ -237,10 +236,12 @@
                                                   direction first-not-done)
                           (psfont-text-extents metrics-key string
                                                :start start :end position-newline)
+			(declare (ignore width font-ascent font-descent direction first-not-done))
                         (multiple-value-bind (minx miny maxx maxy)
                             (climi::text-bounding-rectangle*
                              medium string :text-style text-style
                              :start (1+ position-newline) :end end)
+			  (declare (ignore miny))
                           (values (* scale (min minx left))
                                   (* scale (- ascent))
                                   (* scale (max maxx right))
@@ -251,6 +252,7 @@
                                                   direction first-not-done)
                           (psfont-text-extents metrics-key string
                                                :start start :end end)
+			(declare (ignore width font-ascent font-descent direction first-not-done))
                         (values (* scale left)
                                 (* scale (- ascent))
                                 (* scale right)