Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with HTTPS or Subversion.

Download ZIP
Browse files

reindent and refactor cond into if

  • Loading branch information...
commit 295bc1431e91df8708d88f41bdc5f232a0d33c62 1 parent 41a85ab
@hanshuebner hanshuebner authored
Showing with 9 additions and 11 deletions.
  1. +9 −11 request.lisp
View
20 request.lisp
@@ -636,17 +636,15 @@ PARAMETERS will not be used."
(if (and preserve-uri
(stringp unparsed-uri))
(trivial-uri-path unparsed-uri)
- (puri:render-uri (cond
- ((and proxy
- (null stream)
- (not proxying-https-p)
- (not real-host))
- uri)
- (t
- (make-instance 'puri:uri
- :path (or (puri:uri-path uri) "/")
- :query (puri:uri-query uri))))
- nil))
+ (puri:render-uri (if (and proxy
+ (null stream)
+ (not proxying-https-p)
+ (not real-host))
+ uri
+ (make-instance 'puri:uri
+ :path (or (puri:uri-path uri) "/")
+ :query (puri:uri-query uri)))
+ nil))
(string-upcase protocol))
(write-header "Host" "~A~@[:~A~]" (puri:uri-host uri) (non-default-port uri))
(when user-agent
Please sign in to comment.
Something went wrong with that request. Please try again.