Pretty-print a vl-warning-p.
(vl-print-warning x &key (ps 'ps)) → ps
Function:
(defun vl-print-warning-fn (x ps) (declare (xargs :stobjs (ps))) (declare (xargs :guard (vl-warning-p x))) (let ((__function__ 'vl-print-warning)) (declare (ignorable __function__)) (if (vl-ps->htmlp) (vl-print-warning-html-mode x) (vl-print-warning-text-mode x))))
Theorem:
(defthm vl-print-warning-fn-of-vl-warning-fix-x (equal (vl-print-warning-fn (vl-warning-fix x) ps) (vl-print-warning-fn x ps)))
Theorem:
(defthm vl-print-warning-fn-vl-warning-equiv-congruence-on-x (implies (vl-warning-equiv x x-equiv) (equal (vl-print-warning-fn x ps) (vl-print-warning-fn x-equiv ps))) :rule-classes :congruence)