Turn a list of preprocessor lexemes into a list of bytes.
(plexemes-to-bytes lexemes) → bytes
This is the top-level function of our printer. The reversed list of bytes is initialized to empty, and we call the top-level printing function, reversing the final byte list.
Function:
(defun plexemes-to-bytes (lexemes) (declare (xargs :guard (plexeme-listp lexemes))) (rev (pprint-lexeme-list lexemes nil)))
Theorem:
(defthm byte-listp-of-plexemes-to-bytes (b* ((bytes (plexemes-to-bytes lexemes))) (byte-listp bytes)) :rule-classes :rewrite)