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

Modified Files: drei-redisplay.lisp Log Message: Fix redisplay bug where NIL would be used as a number.

--- /project/mcclim/cvsroot/mcclim/Drei/drei-redisplay.lisp 2008/01/30 20:43:39 1.55 +++ /project/mcclim/cvsroot/mcclim/Drei/drei-redisplay.lisp 2008/02/01 16:30:40 1.56 @@ -486,7 +486,7 @@ of the stroke." (loop with parts = (analyse-stroke-string stroke-string) with width = 0 - with widths = (make-array 1 :adjustable t :fill-pointer t) + with widths = (make-array 1 :adjustable t :fill-pointer t :initial-element 0) with tab-width for (start end object) in parts do (cond ((eql object #\Tab)