[Q] Change (apply 'nconc (mapcar ...)) to (mapcan ...); warn about first form.