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

use babel for string-octet conversion, specify latin-1 character set explicitly U trunk/thirdparty/cl-pdf/cl-pdf.asd U trunk/thirdparty/cl-pdf/zlib.lisp

Modified: trunk/thirdparty/cl-pdf/cl-pdf.asd =================================================================== --- trunk/thirdparty/cl-pdf/cl-pdf.asd 2008-12-21 11:09:32 UTC (rev 4146) +++ trunk/thirdparty/cl-pdf/cl-pdf.asd 2008-12-21 11:21:37 UTC (rev 4147) @@ -60,4 +60,4 @@ (:file "text" :depends-on ("pdf-base")) (:file "bar-codes" :depends-on ("pdf-geom")) (:file "chart" :depends-on ("text" "pdf-geom"))) - :depends-on (:iterate #+use-salza-zlib :salza)) + :depends-on (:iterate #+use-salza-zlib :salza #+use-salza-zlib :babel))

Modified: trunk/thirdparty/cl-pdf/zlib.lisp =================================================================== --- trunk/thirdparty/cl-pdf/zlib.lisp 2008-12-21 11:09:32 UTC (rev 4146) +++ trunk/thirdparty/cl-pdf/zlib.lisp 2008-12-21 11:21:37 UTC (rev 4147) @@ -88,7 +88,7 @@ #+use-salza-zlib (defun compress-string (string) (let* ((input (if (stringp string) - (deflate::string-to-octets string 0 (length string)) + (babel::string-to-octets string :encoding :iso-8859-1) string)) (buffer-size (min 8192 (* 2 (length string)))) (zlib-buffer (make-array buffer-size :element-type 'salza::octet))