cage/tinmop
1
0
Fork 0
mirror of https://codeberg.org/cage/tinmop/ synced 2024-12-20 23:34:40 +01:00
Code Issues

- fixed 'percent-encoded-p'.

Browse Source
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))) (return-from percent-encoded-p nil)))
((or (percent:reservedp i) ((or (percent:reservedp i)
(char= i #\Space) (char= i #\Space)
(not (or (percent:alphap (char-code i)) (not (or (percent:alphap (char-code i))
(percent:digitp (char-code i))))) (percent:digitp (char-code i))
(percent:unreservedp (char-code i)))))
(return-from percent-encoded-p nil)))) (return-from percent-encoded-p nil))))
t) t)