let vtable_by_name_opt = fun db name -> try Some (List.find (fun vt -> vt.vt_name = name) db.db_vtables) with | Not_found -> None