Unconditionally add some preprocessor output.
(vl-ppst-write etext &key (ppst 'ppst)) → ppst
Function:
(defun vl-ppst-write$inline (etext ppst) (declare (xargs :stobjs (ppst))) (declare (xargs :guard (vl-echarlist-p etext))) (let ((__function__ 'vl-ppst-write)) (declare (ignorable __function__)) (vl-ppst-update-acc (revappend-without-guard etext (vl-ppst->acc)))))