(vl-lint-apply-quiet quiet design) → new-design
Function:
(defun vl-lint-apply-quiet (quiet design) (declare (xargs :guard (and (string-listp quiet) (vl-design-p design)))) (let ((__function__ 'vl-lint-apply-quiet)) (declare (ignorable __function__)) (b* ((design (vl-design-fix design)) (mods (vl-design->mods design)) (mods (vl-delete-modules quiet mods))) (change-vl-design design :mods mods))))
Theorem:
(defthm vl-design-p-of-vl-lint-apply-quiet (b* ((new-design (vl-lint-apply-quiet quiet design))) (vl-design-p new-design)) :rule-classes :rewrite)