cage
/
tinmop
mirror of https://codeberg.org/cage/tinmop/
1
0
Fork 0
Code Issues

- fixed 'percent-encoded-p'.

This commit is contained in:
cage 2021-03-15 19:48:02 +01:00
parent 0c2398c184
commit 17bb9f5f15
1 changed files with 3 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
src/text-utils.lisp
View File

@ -695,8 +695,9 @@ printed in the box column by column; in the example above the results are:
(return-from percent-encoded-p nil)))
((or (percent:reservedp i)
(char= i #\Space)
(not (or (percent:alphap (char-code i))
(percent:digitp (char-code i)))))
(not (or (percent:alphap (char-code i))
(percent:digitp (char-code i))
(percent:unreservedp (char-code i)))))
(return-from percent-encoded-p nil))))
t)