Zander671/cl-xdg-trash
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Fix bug in urf-8-char type

Browse Source
This commit is contained in:
Alexander Rosenberg
2025-09-30 14:36:10 -07:00
parent b82edbcfcf
commit 5ba78e2760
1 changed files with 4 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

5
url-encode.lisp
View File

@ -1,4 +1,7 @@
(in-package :cl-xdg-trash/url-encode) (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)) (declaim (ftype (function (character) t) url-unreserved-character-p))
(defun url-unreserved-character-p (char) (defun url-unreserved-character-p (char)
@ -18,7 +21,7 @@
(deftype utf-8-char () (deftype utf-8-char ()
'(or '(or
(cons (integer 0 #b1010111) null) (cons (integer 0 #b1111111) null)
(cons (integer #b11000000 #b11011111) (cons utf-8-middle-byte null)) (cons (integer #b11000000 #b11011111) (cons utf-8-middle-byte null))