anchor.diff:      ok.
   
   process(Req, ObProc) ->
  -    #sipmsg{
  -        to = #uri{scheme=Scheme},
  -        contacts = Contacts
  -    } = Req,
  +    #sipmsg{to=#uri{scheme=Scheme}, contacts=Contacts} = Req,
       if
           Scheme==sip; Scheme==sips -> ok;
           true -> throw(unsupported_uri_scheme)
  
positive.code:     lists:reverse(lists:keysort(#reg_contact.updated, Acc)).
  
  
  
  
  
  %% @private Generates a contact value including Path
  make_contact(#reg_contact{contact=Contact, path=[]}) ->
      Contact;
  
negative.code: 
  %% @private Extracts from each contact a index, uri, expire time and q
  -spec gen_regcontacts([#uri{}], #reg_contact{}, 
                        {integer(), integer(), integer(), integer(), integer()}, 
                        true|false|unsupported, [reg_info()]) ->
      [reg_info()].
  
  gen_regcontacts([Contact|Rest], Base, Times, ObProc, Acc) ->
      #uri{scheme=Scheme, user=User, domain=Domain, ext_opts=Opts} = Contact,
      {Min, Max, Default, Now, _LongNow} = Times,
      case Domain of
          <<"*">> -> throw(invalid_request);
          _ -> ok
  