80 |
(sort a #'char<)) |
(sort a #'char<)) |
81 |
"00111") |
"00111") |
82 |
|
|
83 |
|
;;; Order of evaluation tests |
84 |
|
|
85 |
|
(deftest sort.order.1 |
86 |
|
(let ((i 0) x y) |
87 |
|
(values |
88 |
|
(sort (progn (setf x (incf i)) (list 1 7 3 2)) |
89 |
|
(progn (setf y (incf i)) #'<)) |
90 |
|
i x y)) |
91 |
|
(1 2 3 7) 2 1 2) |
92 |
|
|
93 |
|
(deftest sort.order.2 |
94 |
|
(let ((i 0) x y z) |
95 |
|
(values |
96 |
|
(sort (progn (setf x (incf i)) (list 1 7 3 2)) |
97 |
|
(progn (setf y (incf i)) #'<) |
98 |
|
:key (progn (setf z (incf i)) #'-)) |
99 |
|
i x y z)) |
100 |
|
(7 3 2 1) 3 1 2 3) |
101 |
|
|
102 |
|
|
103 |
;;; Error cases |
;;; Error cases |
104 |
|
|
105 |
(deftest sort.error.1 |
(deftest sort.error.1 |