anchor.diff:  to_integer(L) when is_list(L) -> list_to_integer(L).
   
   %% @doc Convert (almost) any value to a float.
  --spec to_float(term()) -> float().
  +-spec to_float(term()) -> float() | undefined.
   to_float(undefined) -> undefined;
   to_float([]) -> undefined;
   to_float(A) when is_atom(A) -> to_float(atom_to_list(A));
   to_float(B) when is_binary(B) -> to_float(binary_to_list(B));
   to_float(I) when is_integer(I) -> I + 0.0;
   to_float(F) when is_float(F) -> F;
  -to_float(L) when is_list(L) -> 
  +to_float(L) when is_list(L) ->
       case lists:member($., L) of
           true -> list_to_float(L);
           false -> list_to_float(L++".0")  %% list_to_float("1") gives a badarg
  
positive.code:           to_isotime/1,
            to_json/1,
            unicode_to_utf8/1,
            
            convert_json/1,
            ip_to_list/1,
            ip_to_long/1,
  
negative.code:     end;
  to_json_struct_key(_) ->
      invalid_key.
  
  
  
  ip_to_list({IP,Port}) when is_tuple(IP), is_integer(Port) ->
  