Sort
Use cl-caddr everywhere
Use cl-do
Use cl-second and cl-third
Use cl-multiple-value-* and cl-values