anchor.diff:      my_tab_to_list(Ts,ets:next(Ts,Key),[ets:lookup(Ts, Key)| Acc]).
   
   etsmem() ->
  +    AllTabs = lists:map(fun(T) -> {T,ets:info(T,name),ets:info(T,size),
  +				   ets:info(T,memory),ets:info(T,type)} 
  +			end, ets:all()),
  +    Mem =
       {try erlang:memory(ets) catch error:notsup -> notsup end,
        case erlang:system_info({allocator,ets_alloc}) of
   	 false -> undefined;
  
positive.code: 		       {value,{_,BlSz,_,_}} = lists:keysearch(blocks_size, 1, L),
  		       {Bl0+Bl,BlSz0+BlSz}
  	       end, {0,0}, MSBCS)
       end}.
  
  verify_etsmem(MemInfo) ->
      wait_for_test_procs(),
      case etsmem() of
  	MemInfo ->
  	    io:format("Ets mem info: ~p", [MemInfo]),
  	    case MemInfo of
  		{ErlMem,EtsAlloc} when ErlMem == notsup; EtsAlloc == undefined ->
  
negative.code: types(doc) -> ["Test different types"];
  types(Config) when is_list(Config) ->
      init_externals(),
      repeat_for_opts(types_do,[[set,ordered_set],compressed]).
  
  types_do(Opts) ->
  