84 |
:test-not (complement #'equal) :key nil) |
:test-not (complement #'equal) :key nil) |
85 |
(aaa "AAA" "aaa" #\a)) |
(aaa "AAA" "aaa" #\a)) |
86 |
|
|
87 |
|
;;; Ordering in comparison function |
88 |
|
|
89 |
|
(deftest adjoin.19 |
90 |
|
(adjoin 10 '(1 2 3) :test #'<) |
91 |
|
(10 1 2 3)) |
92 |
|
|
93 |
|
(deftest adjoin.20 |
94 |
|
(adjoin 10 '(1 2 3) :test #'>) |
95 |
|
(1 2 3)) |
96 |
|
|
97 |
|
(deftest adjoin.21 |
98 |
|
(adjoin 10 '(1 2 3) :test-not #'>) |
99 |
|
(10 1 2 3)) |
100 |
|
|
101 |
|
(deftest adjoin.22 |
102 |
|
(adjoin 10 '(1 2 3) :test-not #'<) |
103 |
|
(1 2 3)) |
104 |
|
|
105 |
|
|
106 |
(deftest adjoin.order.1 |
(deftest adjoin.order.1 |
107 |
(let ((i 0) w x y z) |
(let ((i 0) w x y z) |
108 |
(values |
(values |