From 17bb9f5f15e5093dbb7807504d5e5b3753a2c532 Mon Sep 17 00:00:00 2001 From: cage Date: Mon, 15 Mar 2021 19:48:02 +0100 Subject: [PATCH] - fixed 'percent-encoded-p'. --- src/text-utils.lisp | 5 +++-- 1 file changed, 3 insertions(+), 2 deletions(-) diff --git a/src/text-utils.lisp b/src/text-utils.lisp index 6870e75..2a01717 100644 --- a/src/text-utils.lisp +++ b/src/text-utils.lisp @@ -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)