Dolist instead of multivar setq

[Eanilsen]

I'm not sure if you would consider this as cleaned up, you could consider moving the clean up into its own function instead or use a list of symbols in the dolist.