|
|
@@ -95,13 +95,13 @@ is replaced with replacement."
|
|
|
(defun xml-request (url)
|
|
|
(multiple-value-bind (stream status headers uri http-stream)
|
|
|
(drakma:http-request (http-default url)
|
|
|
- :force-binary t
|
|
|
:want-stream t
|
|
|
:decode-content t)
|
|
|
(declare (ignore status headers))
|
|
|
(unwind-protect
|
|
|
(progn
|
|
|
- (setf (flex:flexi-stream-external-format stream) :utf-8)
|
|
|
+ (when (eq (flex:flexi-stream-element-type stream) 'octet)
|
|
|
+ (setf (flex:flexi-stream-external-format stream) :utf-8))
|
|
|
(values (plump:parse stream) uri))
|
|
|
(ignore-errors (close http-stream)))))
|
|
|
|
