Use cl functions to avoid mapcan missing error.