0.7.12.17:
[sbcl.git] / tests / seq.pure.lisp
index 8d23728..1123ae2 100644 (file)
               '(1 2 3 10 12 13)))
 (assert (equal (stable-sort (list 1 2 3 -3 -2 -1) '< :key 'abs)
               '(1 -1 2 -2 3 -3)))
+