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))))