Hi,

I've found it useful to be able to specify a depth when flattening a list structure. The attached patch adds a :to-depth keyword parameter to the flatten function. For instance, 

(flatten '((a b) (c (d)) :to-depth 1) => (a b c (d))

Is this something that could be added?

Thanks,
-Garrett