anchor.diff:      [{P,process_info(P, registered_name),
         safe_second_element(process_info(P, initial_call))} || 
           P <- processes(), is_process_alive(P)].
  +
  +proc_reg_name({registered_name, Name}) -> Name;
  +proc_reg_name([]) -> no_reg_name.
   
   safe_second_element({_,Info}) -> Info;
   safe_second_element(Other) -> Other.
  
positive.code:     {module, _} = code:load_abs(AbsFile, Mod),
  
      Ms0 = erlang:process_info(self(),messages),
      Before = {get(), pps(), ets:all(), Ms0},
  
      %% Prepare the check that the qlc module does not call qlc_pt.
      _ = [unload_pt() || {file, Name} <- [code:is_loaded(qlc_pt)], 
  
negative.code:     case compile:file(File, Opts) of
          {ok, _M, Ws} -> warnings(File, Ws);
          {error, [{File,Es}], []} -> {errors, Es, []};
          {error, [{File,Es}], [{File,Ws}]} -> {errors, Es, Ws}
      end.
  
  comp_compare(T, T) ->
  