Identify packages with fatal warnings.
(vl-packagelist-zombies x) → names
Function:
(defun vl-packagelist-zombies (x) (declare (xargs :guard (vl-packagelist-p x))) (let ((__function__ 'vl-packagelist-zombies)) (declare (ignorable __function__)) (cond ((atom x) nil) ((vl-some-warning-fatalp (vl-package->warnings (car x))) (cons (vl-package->name (car x)) (vl-packagelist-zombies (cdr x)))) (t (vl-packagelist-zombies (cdr x))))))
Theorem:
(defthm string-listp-of-vl-packagelist-zombies (b* ((names (vl-packagelist-zombies x))) (string-listp names)) :rule-classes :rewrite)
Theorem:
(defthm vl-packagelist-zombies-of-vl-packagelist-fix-x (equal (vl-packagelist-zombies (vl-packagelist-fix x)) (vl-packagelist-zombies x)))
Theorem:
(defthm vl-packagelist-zombies-vl-packagelist-equiv-congruence-on-x (implies (vl-packagelist-equiv x x-equiv) (equal (vl-packagelist-zombies x) (vl-packagelist-zombies x-equiv))) :rule-classes :congruence)