[mcclim-cvs] CVS mcclim/Drei

[thenriksen]

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

Modified Files:
	drei-redisplay.lisp 
Log Message:
Removed unused values in a multiple-value-bind.


--- /project/mcclim/cvsroot/mcclim/Drei/drei-redisplay.lisp	2008/01/15 07:56:15	1.31
+++ /project/mcclim/cvsroot/mcclim/Drei/drei-redisplay.lisp	2008/01/15 09:10:29	1.32
@@ -465,18 +465,16 @@
                         (mod (+ width x-position) tab-width)))
                (vector-push-extend width widths))
               (object
-               (multiple-value-bind (w ignore1 ignore2 ignore3 ignore4)
+               (multiple-value-bind (w)
                    (text-size stream object
                     :text-style text-style)
-                 (declare (ignore ignore1 ignore2 ignore3 ignore4))
                  (incf width w)
                  (vector-push-extend width widths)))
               (t
-               (multiple-value-bind (w ignore1 ignore2 ignore3 ignore4)
+               (multiple-value-bind (w)
                    (text-size stream stroke-string
                     :start start :end end
                     :text-style text-style)
-                 (declare (ignore ignore1 ignore2 ignore3 ignore4))
                  (incf width w)
                  (vector-push-extend width widths))))
      finally (return (values width parts widths))))