[bknr-cvs] hans changed trunk/thirdparty/cl-pdf/

[BKNR Commits]

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))