[cello-cvs] CVS cello/cl-ftgl

[ktilton]

Update of /project/cello/cvsroot/cello/cl-ftgl
In directory clnet:/tmp/cvs-serv5453/cl-ftgl

Modified Files:
	cl-ftgl.lisp 
Log Message:
Initialize array element to nil, critical to algorithm

--- /project/cello/cvsroot/cello/cl-ftgl/cl-ftgl.lisp	2006/07/06 22:09:11	1.6
+++ /project/cello/cvsroot/cello/cl-ftgl/cl-ftgl.lisp	2006/07/08 03:29:09	1.7
@@ -20,7 +20,7 @@
 ;;; FROM, OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS 
 ;;; IN THE SOFTWARE.
 
-;;; $Header: /project/cello/cvsroot/cello/cl-ftgl/cl-ftgl.lisp,v 1.6 2006/07/06 22:09:11 ktilton Exp $
+;;; $Header: /project/cello/cvsroot/cello/cl-ftgl/cl-ftgl.lisp,v 1.7 2006/07/08 03:29:09 ktilton Exp $
 
 (defpackage #:cl-ftgl
   (:nicknames #:ftgl)
@@ -173,7 +173,7 @@
 (defstruct ftgl
   face size target-res depth
   descender ascender 
-  (widths (make-array 256))
+  (widths (make-array 256 :initial-element nil))
   ft-metrics
   ifont)