1 files changed, 2 insertions(+), 2 deletions(-)
M gemini.lisp
M gemini.lisp => gemini.lisp +2 -2
@@ 208,11 208,11 @@
(if (and (string= "text" (mimeparse::media-type mime-type))
charset)
(-> stream
- (read-all '(unsigned-byte 8))
+ (read-all)
(babel:octets-to-string :encoding charset))
(error 'malformed-response :reason "Non-textual body or body in unrecognized charset" :resp nil)
; return the binary body if it's non-textual or in an unknown charset
- #|(read-all stream '(unsigned-byte 8))|#)))
+ #|(read-all stream)|#)))
(defun-contract gemini-request (uri &key host port)
((:pre (typecheck uri (or quri:uri string))