RosettaCodeData/Task/Sort-an-integer-array/Common-Lisp/sort-an-integer-array.lisp

CL-USER> (sort #(9 -2 1 2 8 0 1 2) #'<)
#(-2 0 1 1 2 2 8 9)