Merge pull request #53 from GPPassos/read-response-fix

non-empty bodies in responses w/o declared body length (solves #52)
fukamachi · Jul 30, 2018 · 72bfe93 · 72bfe93
2 parents 5a61e07 + fea5a68
commit 72bfe93
Showing 1 changed file with 5 additions and 6 deletions.
diff --git a/src/backend/usocket.lisp b/src/backend/usocket.lisp
@@ -182,12 +182,11 @@
        (let ((buf (make-array content-length :element-type '(unsigned-byte 8))))
          (read-sequence buf stream)
          (setq body buf)))
-      ((or (not transfer-encoding-p)
-           (let ((status (http-status http)))
-             (or (= status 100)    ;; Continue
-                 (= status 101)    ;; Switching Protocols
-                 (= status 204)    ;; No Content
-                 (= status 304)))) ;; Not Modified
+      ((let ((status (http-status http)))
+         (or (= status 100)    ;; Continue
+             (= status 101)    ;; Switching Protocols
+             (= status 204)    ;; No Content
+             (= status 304))) ;; Not Modified
        (setq body +empty-body+))
       (T
        (setq body-data (make-output-buffer))