Optimized, inline version for string literals.
(vl-print-markup-raw-fast x &key (ps 'ps)) → ps
Function:
(defun vl-print-markup-raw-fast$inline (x ps) (declare (xargs :stobjs (ps))) (declare (xargs :guard (stringp x))) (let ((__function__ 'vl-print-markup-raw-fast)) (declare (ignorable __function__)) (vl-ps-update-rchars (cons (string-fix x) (vl-ps->rchars)))))
Theorem:
(defthm vl-print-markup-raw-fast$inline-of-str-fix-x (equal (vl-print-markup-raw-fast$inline (str-fix x) ps) (vl-print-markup-raw-fast$inline x ps)))
Theorem:
(defthm vl-print-markup-raw-fast$inline-streqv-congruence-on-x (implies (streqv x x-equiv) (equal (vl-print-markup-raw-fast$inline x ps) (vl-print-markup-raw-fast$inline x-equiv ps))) :rule-classes :congruence)