anchor.diff:          true ->
               Usage = St0#lint.usage,
               Unused = ordsets:subtract(St0#lint.imports, Usage#usage.imported),
  -            Imports = [{{FA,list_to_atom(package_to_string(Mod))},L}
  -                       || {attribute,L,import,{Mod,Fs}} <- Forms,
  -                          FA <- lists:usort(Fs)],
  +            Imports = [{{FA,Mod},L} ||
  +		 {attribute,L,import,{Mod,Fs}} <- Forms,
  +		 FA <- lists:usort(Fs)],
               Bad = [{FM,L} || FM <- Unused, {FM2,L} <- Imports, FM =:= FM2],
               func_line_warning(unused_import, Bad, St0)
       end.
  
positive.code: %%    is_gexpr_list(Es, RDs);
  is_gexpr({record_index,_L,_Name,Field}, RDs) ->
      is_gexpr(Field, RDs);
  is_gexpr({record_field,_L,_,_}=M, _RDs) ->
      erl_parse:package_segments(M) =/= error;
  is_gexpr({record_field,_L,Rec,_Name,Field}, RDs) ->
      is_gexpr_list([Rec,Field], RDs);
  is_gexpr({record,L,Name,Inits}, RDs) ->
  
negative.code: %% the other function collections contain {Function, Arity}.
  -record(lint, {state=start		:: 'start' | 'attribute' | 'function',
                 module=[],                       %Module
                 extends=[],                      %Extends
                 behaviour=[],                    %Behaviour
                 exports=gb_sets:empty()	:: gb_set(),	%Exports
                 imports=[],                      %Imports
                 compile=[],                      %Compile flags
                 records=dict:new()	:: dict(),	%Record definitions
                 locals=gb_sets:empty()	:: gb_set(),	%All defined functions (prescanned)
  