primitives again

How do I find the functions which are primitives, please?
  

you can scan the whole search path for functions that are primitives:

    primitives = sapply(search(), function(path)
       with(as.environment(path), Filter(is.primitive, lapply(ls(), get))))

primitives is a list of named lists of primitives, one sublist for each
attached package (most sublists will be empty, i guess).
 
vQ