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