From 9e5d27b23e864d186d4ca3bf00eaa5653bcdbec3 Mon Sep 17 00:00:00 2001
From: dlichteblau <dlichteblau>
Date: Sun, 14 Oct 2007 21:14:08 +0000
Subject: [PATCH] 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.
---
 xstream.lisp | 2 ++
 1 file changed, 2 insertions(+)

diff --git a/xstream.lisp b/xstream.lisp
index 1479d7e..2115085 100644
--- a/xstream.lisp
+++ b/xstream.lisp
@@ -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)))
-- 
2.11.4.GIT