Replace mapcar+append by cl-mapcan