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

allow Microsoft BOM (thanks to Ivan Shvedunov)

Browse Source
This commit is contained in:
dlichteblau
2008-02-24 20:38:35 +00:00
parent 5cd8915297
commit bc3a666248
1 changed files with 5 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

6
xstream.lisp
View File

@ -342,7 +342,6 @@
(defun make-rod-xstream (string &key name) (defun make-rod-xstream (string &key name)
(unless (typep string 'simple-array) (unless (typep string 'simple-array)
(setf string (coerce string 'simple-string))) (setf string (coerce string 'simple-string)))
;; 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)))
(declare (type (simple-array buffer-byte (*)) buffer)) (declare (type (simple-array buffer-byte (*)) buffer))
@ -375,6 +374,11 @@
(t (t
(cond ((and (= c0 #xFE) (= c1 #xFF)) (values :utf-16-big-endian nil)) (cond ((and (= c0 #xFE) (= c1 #xFF)) (values :utf-16-big-endian nil))
((and (= c0 #xFF) (= c1 #xFE)) (values :utf-16-little-endian nil)) ((and (= c0 #xFF) (= c1 #xFE)) (values :utf-16-little-endian nil))
((and (= c0 #xEF) (= c1 #xBB))
(let ((c2 (read-byte stream nil :eof)))
(if (= c2 #xBF)
(values :utf-8 nil)
(values :utf-8 (list c0 c1 c2)))))
(t (t
(values :utf-8 (list c0 c1))))))))))) (values :utf-8 (list c0 c1)))))))))))