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