[mcclim-cvs] CVS mcclim/Drei

[thenriksen]

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)