Commit c7e375f7 authored by Michael Raskin's avatar Michael Raskin
Browse files

Syncing from Monotone at 20210401-024742. Last commit message was A bit more...

Syncing from Monotone at 20210401-024742. Last commit message was A bit more resilience around URL-encoding
parent 098d1250
......@@ -172,7 +172,7 @@
(current-content-bytes fetcher) content
(current-status-code fetcher) status-code
(current-status-line fetcher) status-line
(current-url fetcher) (urlencode-unsafe (puri:render-uri reply-url nil) :latin-1)
(current-url fetcher) (and reply-url (urlencode-unsafe (puri:render-uri reply-url nil) :latin-1))
(current-decoded-url fetcher) (maybe-urldecode (current-url fetcher) (list :utf-8 :latin-1))
(current-intended-url fetcher) url
(current-headers fetcher) server-headers
......
......@@ -81,7 +81,7 @@
((char<= #\a x #\z) (list x))
((char<= #\A x #\Z) (list x))
((char<= #\0 x #\9) (list x))
((position x ":/?&_-.=*,;[]%+") (list x))
((position x ":/?&_-.=*,;[]%+~") (list x))
(t (coerce (urlencode (string x) encoding) 'list))))
object))
'string)))
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment