URL encode a single character. (fast, array-based version)
(vl-fast-url-encode-char x) → *
Function:
(defun vl-fast-url-encode-char$inline (x) (declare (type character x)) (let ((__function__ 'vl-fast-url-encode-char)) (declare (ignorable __function__)) (mbe :logic (vl-url-encode-char x) :exec (aref1 'vl-url-encode-array *vl-url-encode-array* (char-code x)))))