[cxml-cvs] CVS closure-common

[dlichteblau]

Update of /project/cxml/cvsroot/closure-common
In directory clnet:/tmp/cvs-serv5820

Modified Files:
	xstream.lisp 
Log Message:
Allow non-simple strings in MAKE-ROD-XSTREAM, for the benefit of Drakma.

	* xstream.lisp (MAKE-ROD-XSTREAM): Coerce non-simple arrays to
	simple-string.


--- /project/cxml/cvsroot/closure-common/xstream.lisp	2007/08/29 12:11:17	1.7
+++ /project/cxml/cvsroot/closure-common/xstream.lisp	2007/10/14 21:14:08	1.8
@@ -337,6 +337,8 @@
        :name name))))
 
 (defun make-rod-xstream (string &key name)
+  (unless (typep string 'simple-array)
+    (setf string (coerce string 'simple-string)))
   ;; XXX encoding is mis-handled by this kind of stream
   (let ((n (length string)))
     (let ((buffer (make-array (1+ n) :element-type 'buffer-byte)))