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)