let vtable_by_name = fun db name ->
    List.find (fun vt -> vt.vt_name = name) db.db_vtables