Print a vertical tab after preprocessing.
(pprint-vertical-tab bytes) → new-bytes
Function:
(defun pprint-vertical-tab (bytes) (declare (xargs :guard (byte-listp bytes))) (pprint-char 11 bytes))
Theorem:
(defthm byte-listp-of-pprint-vertical-tab (b* ((new-bytes (pprint-vertical-tab bytes))) (byte-listp new-bytes)) :rule-classes :rewrite)