anchor.diff:      Ref = SipTimer#siptimer.ref,
       make_siptimerlist(update_timer2(Ref, SipTimer, TList#siptimerlist.list, TList)).
       
  -make_siptimerlist([]) ->
  -    #siptimerlist{list=[]};
  -make_siptimerlist(In) ->
  -    #siptimerlist{list=make_siptimerlist2(In, [])}.
  -
  -make_siptimerlist2([], Res) ->
  -    Res;
  -make_siptimerlist2([H | T], Res) when record(H, siptimer) ->
  -    make_siptimerlist2(T, lists:append(Res, [H]));
  -make_siptimerlist2(In, Res) ->
  -    erlang:fault("Trying to make siptimerlist of something else than siptimers!", [In, Res]).
  -
   update_timer2(Ref, _, [], TList) ->
       logger:log(error, "Siptimer: Asked to update a timer, but I can't find it", [Ref]),
       logger:log(error, "Siptimer: Asked to update a timer with ref=~p, but I can't find it in list :~n~p",
  
positive.code: 
  get_timers_appsignal_matching(AppSignal, TimerList) when record(TimerList, siptimerlist) ->
      make_siptimerlist(get_timers_something_matching2(appsignal, AppSignal, TimerList#siptimerlist.list, [])).
  
  get_timers_something_matching2(Key, Value, [], Res) ->
      Res;
  get_timers_something_matching2(appsignal, Value, [H | T], Res) when record(H, siptimer), H#siptimer.appsignal == Value ->
      get_timers_something_matching2(appsignal, Value, T, lists:append(Res, [H]));
  get_timers_something_matching2(Key, Value, [H | T], Res) when record(H, siptimer) ->
      get_timers_something_matching2(Key, Value, T, Res).    
  
  
  extract(Values, SipTimer) when record(SipTimer, siptimer) ->
  
negative.code:     "0.5";
  timeout2str(Timeout) ->
      integer_to_list(Timeout div 1000).
  
  length(TimerList) when is_record(TimerList, siptimerlist) ->
      length(TimerList#siptimerlist.list).
  
  
  %%====================================================================
  %% Internal functions
  %%====================================================================
  
  make_siptimerlist([]) ->
      #siptimerlist{list=[]};
  make_siptimerlist(In) ->
      #siptimerlist{list=make_siptimerlist2(In, [])}.
  
  make_siptimerlist2([], Res) ->
      Res;
  make_siptimerlist2([H | T], Res) when record(H, siptimer) ->
      make_siptimerlist2(T, lists:append(Res, [H]));
  make_siptimerlist2(In, Res) ->
      erlang:fault("Trying to make siptimerlist of something else than siptimers!", [In, Res]).
  
  get_timers_something_matching2(Key, Value, [], Res) ->
      Res;
  get_timers_something_matching2(appsignal, Value, [H | T], Res) when record(H, siptimer), H#siptimer.appsignal == Value ->
      get_timers_something_matching2(appsignal, Value, T, lists:append(Res, [H]));
  get_timers_something_matching2(Key, Value, [H | T], Res) when record(H, siptimer) ->
      get_timers_something_matching2(Key, Value, T, Res).    
  