LispForum

I need to write a recursive function which will "collapse" a list, that is, remove all nested parentheses so that the atoms are all at the top level.
(collapse '(a b c (d e) ((f) g))) => (a b c d e f g)
(collapse '(a b)) => (a b)
(collapse '(() ((((a)))) ())) => (a)

Thanks

I think a better name for such a function is Flatten. I don't have a lisp implementation to test right now, but the following should work:Here mapcan appends the list the function returns.