anchor.diff:      gexpr_list([H,T], Vt, St);
   gexpr({tuple,_Line,Es}, Vt, St) ->
       gexpr_list(Es, Vt, St);
  -%%gexpr({struct,_Line,_Tag,Es}, Vt, St) ->
  -%%    gexpr_list(Es, Vt, St);
   gexpr({record_index,Line,Name,Field}, _Vt, St) ->
       check_record(Line, Name, St,
                    fun (Dfs, St1) -> record_field(Field, Name, Dfs, St1) end );
  
positive.code:     Clashes = ordsets:subtract(ordsets:from_list(Clashes0), Nowarn),
      St#lint{clashes=Clashes}.
  
  %% -spec is_bif_clash(atom(), byte(), lint_state()) -> boolean().
  
  %% is_bif_clash(_Name, _Arity, #lint{clashes=[]}) ->
  %%     false;
  %% is_bif_clash(Name, Arity, #lint{clashes=Clashes}) ->
  %%     ordsets:is_element({Name,Arity}, Clashes).
  
  %% not_deprecated(Forms, State0) -> State
  
  not_deprecated(Forms, St0) ->
  
negative.code:     {vtold(Vt,Vt0),St};			 %Don't export local variables
  expr({tuple,_Line,Es}, Vt, St) ->
      expr_list(Es, Vt, St);
  expr({record_index,Line,Name,Field}, _Vt, St) ->
      check_record(Line, Name, St,
                   fun (Dfs, St1) -> record_field(Field, Name, Dfs, St1) end);
  