let add_template env name spec_list labels cloc =
let env = if Hashtbl.mem env.templates name then
add_warning env cloc ("Duplicate template definition '" ^ name ^ "'")
else
env
in Hashtbl.replace env.templates name (spec_list, labels, cloc); env