From 5ba78e27606f23e1e0f56a721db3bb75e40f860c Mon Sep 17 00:00:00 2001 From: Alexander Rosenberg Date: Tue, 30 Sep 2025 14:36:10 -0700 Subject: [PATCH] Fix bug in urf-8-char type --- url-encode.lisp | 5 ++++- 1 file changed, 4 insertions(+), 1 deletion(-) diff --git a/url-encode.lisp b/url-encode.lisp index e471d38..d11aa2e 100644 --- a/url-encode.lisp +++ b/url-encode.lisp @@ -1,4 +1,7 @@ (in-package :cl-xdg-trash/url-encode) +;; Some useful links +;; https://en.wikipedia.org/wiki/UTF-8 +;; https://en.wikipedia.org/wiki/Percent-encoding (declaim (ftype (function (character) t) url-unreserved-character-p)) (defun url-unreserved-character-p (char) @@ -18,7 +21,7 @@ (deftype utf-8-char () '(or - (cons (integer 0 #b1010111) null) + (cons (integer 0 #b1111111) null) (cons (integer #b11000000 #b11011111) (cons utf-8-middle-byte null))