map系を使おうとすることは筋がいいよ。

* (apply #'concatenate 'list '((a) (b c) (d)))
(A B C D)

これを応用させてみ。