s4_to_list function

Convert an S4 object into a list