let iter_description fwrn fdep d = iter_dnodes (fun d -> List.iter fwrn d.dn_warn ; List.iter fdep d.dn_depends ; ) d