Optimized version for string literals that need no encoding.
(vl-println-raw-fast2 str &key (ps 'ps)) → ps
Function:
(defun vl-println-raw-fast2$inline (str ps) (declare (xargs :stobjs (ps))) (declare (xargs :guard (stringp str))) (let ((__function__ 'vl-println-raw-fast2)) (declare (ignorable __function__)) (vl-ps-seq (vl-ps-update-rchars (cons (if (vl-ps->htmlp) "<br/> " #\Newline) (cons (string-fix str) (vl-ps->rchars)))) (vl-ps-update-col 0))))
Theorem:
(defthm vl-println-raw-fast2$inline-of-str-fix-str (equal (vl-println-raw-fast2$inline (str-fix str) ps) (vl-println-raw-fast2$inline str ps)))
Theorem:
(defthm vl-println-raw-fast2$inline-streqv-congruence-on-str (implies (streqv str str-equiv) (equal (vl-println-raw-fast2$inline str ps) (vl-println-raw-fast2$inline str-equiv ps))) :rule-classes :congruence)