OSCL/closure-common
2
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Allow non-simple strings in MAKE-ROD-XSTREAM, for the benefit of Drakma.

Browse Source 
* xstream.lisp (MAKE-ROD-XSTREAM): Coerce non-simple arrays to
	simple-string.
This commit is contained in:
dlichteblau
2007-10-14 21:14:08 +00:00
parent da7869ba78
commit 9e5d27b23e
1 changed files with 2 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
xstream.lisp
View File

@ -337,6 +337,8 @@
:name name)))) :name name))))
(defun make-rod-xstream (string &key 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 ;; XXX encoding is mis-handled by this kind of stream
(let ((n (length string))) (let ((n (length string)))
(let ((buffer (make-array (1+ n) :element-type 'buffer-byte))) (let ((buffer (make-array (1+ n) :element-type 'buffer-byte)))