Refactoring.

Replaced all (sort (mapcar #'score ... )) expressions with calls to the function
scores instead.