Implementation of output-files-prog.
(output-files-prog-fn arg args state) → (mv erp state)
We set the flag
Function:
(defun output-files-prog-fn (arg args state) (declare (xargs :stobjs (state))) (declare (xargs :guard (true-listp args))) (let ((__function__ 'output-files-prog-fn)) (declare (ignorable __function__)) (b* (((reterr) state) ((erp state) (output-files-process-inputs-and-gen-files arg args t state))) (retok state))))