[bknr-cvs] hans changed trunk/thirdparty/cl-pdf/ttu-font.lisp

[BKNR Commits]

Revision: 4355
Author: hans
URL: http://bknr.net/trac/changeset/4355

clisp compilation fix
U   trunk/thirdparty/cl-pdf/ttu-font.lisp

Modified: trunk/thirdparty/cl-pdf/ttu-font.lisp
===================================================================
--- trunk/thirdparty/cl-pdf/ttu-font.lisp	2009-04-06 06:06:39 UTC (rev 4354)
+++ trunk/thirdparty/cl-pdf/ttu-font.lisp	2009-04-06 06:07:30 UTC (rev 4355)
@@ -12,7 +12,7 @@
 
 (defclass ttu-font-metrics (font-metrics)
   ((c2g :accessor c2g
-	:initform (make-array 131072 :element-type 'character :initial-element #\Nul))
+	:initform (make-array 131072 :element-type 'character :initial-element (code-char 0)))
    (cid-widths :accessor cid-widths :initform (make-array 0 :adjustable t :fill-pointer 0))
    (pdf-widths :accessor pdf-widths :initform nil)
    (binary-data :accessor binary-data :initform nil)