91 |
(stable-sort a #'char<)) |
(stable-sort a #'char<)) |
92 |
"00111") |
"00111") |
93 |
|
|
94 |
|
;;; Error cases |
95 |
|
|
96 |
|
(deftest stable-sort.error.1 |
97 |
|
(classify-error (stable-sort)) |
98 |
|
program-error) |
99 |
|
|
100 |
|
(deftest stable-sort.error.2 |
101 |
|
(classify-error (stable-sort nil)) |
102 |
|
program-error) |
103 |
|
|
104 |
|
(deftest stable-sort.error.3 |
105 |
|
(classify-error (stable-sort nil #'< :key)) |
106 |
|
program-error) |
107 |
|
|
108 |
|
(deftest stable-sort.error.4 |
109 |
|
(classify-error (stable-sort nil #'< 'bad t)) |
110 |
|
program-error) |
111 |
|
|
112 |
|
(deftest stable-sort.error.5 |
113 |
|
(classify-error (stable-sort nil #'< 'bad t :allow-other-keys nil)) |
114 |
|
program-error) |
115 |
|
|
116 |
|
(deftest stable-sort.error.6 |
117 |
|
(classify-error (stable-sort nil #'< 1 2)) |
118 |
|
program-error) |