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