Skip to content

Commit 287586a

Browse files
committed
Use (UNLESS ...) instead of (WHEN (NOT ...))
1 parent 5406198 commit 287586a

File tree

1 file changed

+1
-1
lines changed

1 file changed

+1
-1
lines changed

quicklisp/http.lisp

Lines changed: 1 addition & 1 deletion
Original file line numberDiff line numberDiff line change
@@ -849,7 +849,7 @@ the indexes in the header accordingly."
849849
:status-code (status header))))
850850
(if (and follow-redirects (<= 300 (status header) 399))
851851
(let ((new-urlstring (ascii-header-value "location" header)))
852-
(when (not new-urlstring)
852+
(unless new-urlstring
853853
(error "Redirect code ~D received, but no Location: header"
854854
(status header)))
855855
(incf redirect-count)

0 commit comments

Comments
 (0)