(vl-slow-keep-taskdecls names x) → *
Function:
(defun vl-slow-keep-taskdecls (names x) (declare (xargs :guard (and (string-listp names) (vl-taskdecllist-p x)))) (let ((__function__ 'vl-slow-keep-taskdecls)) (declare (ignorable __function__)) (cond ((atom x) nil) ((member-equal (vl-taskdecl->name (car x)) (string-list-fix names)) (cons (vl-taskdecl-fix (car x)) (vl-slow-keep-taskdecls names (cdr x)))) (t (vl-slow-keep-taskdecls names (cdr x))))))