Browse code
feat: attempt to convert vectors to strings
fiddlerwoaroof authored on 05/05/2023 06:13:06
Showing 1 changed files
Showing 1 changed files
... | ... |
@@ -25,7 +25,10 @@ |
25 | 25 |
|
26 | 26 |
(defun fetch-doc-from-url (url) |
27 | 27 |
(setup-libraries-for-feeds |
28 |
- (let ((data (drakma:http-request url :user-agent *user-agent*))) |
|
28 |
+ (let ((data (drakma:http-request url :user-agent *user-agent* :decode-content t))) |
|
29 |
+ (when (and (not (stringp data)) |
|
30 |
+ (vectorp data)) |
|
31 |
+ (setf data (babel:octets-to-string data))) |
|
29 | 32 |
(plump:parse data)))) |
30 | 33 |
|
31 | 34 |
(define-condition fetch-error (error) ()) |