Re: how to perform a multi-column sort

Here is the function I came up with. It is SKILL, not CL, but you
should be able to understand for the most part.

(defun genMultiCmpFunction (key lessp @rest others "UUUg")
(lambda (a b)
(labels ((again (key lessp @rest others)
(cond
((lessp (key a) (key b)))
((lessp (key b) (key a))
nil)
(others
(apply again others))
(t
nil))))
(apply again key lessp others))))
.