Add some preprocessor output unless we're currently
(vl-ppst-maybe-write etext &key (ppst 'ppst)) → ppst
Function:
(defun vl-ppst-maybe-write$inline (etext ppst) (declare (xargs :stobjs (ppst))) (declare (xargs :guard (vl-echarlist-p etext))) (let ((__function__ 'vl-ppst-maybe-write)) (declare (ignorable __function__)) (if (vl-ppst->activep) (vl-ppst-update-acc (revappend-without-guard etext (vl-ppst->acc))) ppst)))