Some tweaks.

 - mapcan + mapcar rather than dolist^2

 - remove rather than delete rather than if/then

 - no reversing