(vl-make-url-encode-array n) → *
Function:
(defun vl-make-url-encode-array (n) (declare (xargs :guard (natp n))) (declare (xargs :guard (<= n 255))) (let ((__function__ 'vl-make-url-encode-array)) (declare (ignorable __function__)) (if (zp n) (list (cons n (vl-url-encode-char (code-char n)))) (cons (cons n (vl-url-encode-char (code-char n))) (vl-make-url-encode-array (- n 1))))))