library(microbenchmark)

using.in <- quote( "self" %in%  names(ret.list))
using.eq <- quote( any("self"==names(ret.list)))

microbenchmark(using.in=eval(using.in), using.eq=eval(using.eq))