Clamps Dictionary

Function

(group-by-key source &key (test #'=) (key #'car))

Group elems of source into sublists depending on test and key. Source has to be sorted according to test!