We read every piece of feedback, and take your input very seriously.
To see all available qualifiers, see our documentation.
There was an error while loading. Please reload this page.
1 parent 5406198 commit 287586aCopy full SHA for 287586a
quicklisp/http.lisp
@@ -849,7 +849,7 @@ the indexes in the header accordingly."
849
:status-code (status header))))
850
(if (and follow-redirects (<= 300 (status header) 399))
851
(let ((new-urlstring (ascii-header-value "location" header)))
852
- (when (not new-urlstring)
+ (unless new-urlstring
853
(error "Redirect code ~D received, but no Location: header"
854
(status header)))
855
(incf redirect-count)
0 commit comments