78 |
t) |
t) |
79 |
|
|
80 |
(deftest char<=.7 |
(deftest char<=.7 |
81 |
(or (char<= #\9 #\A) (char<= #\Z #\0) t) |
(notnot-mv (or (char<= #\9 #\A) (char<= #\Z #\0))) |
82 |
t) |
t) |
83 |
|
|
84 |
(deftest char<=.8 |
(deftest char<=.8 |
85 |
(or (char<= #\9 #\a) (char<= #\z #\0) t) |
(notnot-mv (or (char<= #\9 #\a) (char<= #\z #\0))) |
86 |
t) |
t) |
87 |
|
|
88 |
(deftest char<.1 |
(deftest char<.1 |
111 |
t) |
t) |
112 |
|
|
113 |
(deftest char<.7 |
(deftest char<.7 |
114 |
(or (char< #\9 #\A) (char< #\Z #\0) t) |
(notnot-mv (or (char< #\9 #\A) (char< #\Z #\0))) |
115 |
t) |
t) |
116 |
|
|
117 |
(deftest char<.8 |
(deftest char<.8 |
118 |
(or (char< #\9 #\a) (char< #\z #\0) t) |
(notnot-mv (or (char< #\9 #\a) (char< #\z #\0))) |
119 |
t) |
t) |
120 |
|
|
121 |
|
|
145 |
t) |
t) |
146 |
|
|
147 |
(deftest char>=.7 |
(deftest char>=.7 |
148 |
(or (char>= #\A #\9) (char>= #\0 #\Z) t) |
(notnot-mv (or (char>= #\A #\9) (char>= #\0 #\Z))) |
149 |
t) |
t) |
150 |
|
|
151 |
(deftest char>=.8 |
(deftest char>=.8 |
152 |
(or (char>= #\a #\9) (char>= #\0 #\z) t) |
(notnot-mv (or (char>= #\a #\9) (char>= #\0 #\z))) |
153 |
t) |
t) |
154 |
|
|
155 |
(deftest char>.1 |
(deftest char>.1 |
178 |
t) |
t) |
179 |
|
|
180 |
(deftest char>.7 |
(deftest char>.7 |
181 |
(or (char> #\A #\9) (char> #\0 #\Z) t) |
(notnot-mv (or (char> #\A #\9) (char> #\0 #\Z))) |
182 |
t) |
t) |
183 |
|
|
184 |
(deftest char>.8 |
(deftest char>.8 |
185 |
(or (char> #\a #\9) (char> #\0 #\z) t) |
(notnot-mv (or (char> #\a #\9) (char> #\0 #\z))) |
186 |
t) |
t) |
187 |
|
|
188 |
;;; Case-insensitive comparisons |
;;; Case-insensitive comparisons |
262 |
t) |
t) |
263 |
|
|
264 |
(deftest char-not-greaterp.7 |
(deftest char-not-greaterp.7 |
265 |
(or (char-not-greaterp #\9 #\A) (char-not-greaterp #\Z #\0) t) |
(notnot-mv (or (char-not-greaterp #\9 #\A) (char-not-greaterp #\Z #\0))) |
266 |
t) |
t) |
267 |
|
|
268 |
(deftest char-not-greaterp.8 |
(deftest char-not-greaterp.8 |
269 |
(or (char-not-greaterp #\9 #\a) (char-not-greaterp #\z #\0) t) |
(notnot-mv (or (char-not-greaterp #\9 #\a) (char-not-greaterp #\z #\0))) |
270 |
t) |
t) |
271 |
|
|
272 |
(deftest char-lessp.1 |
(deftest char-lessp.1 |
295 |
t) |
t) |
296 |
|
|
297 |
(deftest char-lessp.7 |
(deftest char-lessp.7 |
298 |
(or (char-lessp #\9 #\A) (char-lessp #\Z #\0) t) |
(notnot-mv (or (char-lessp #\9 #\A) (char-lessp #\Z #\0))) |
299 |
t) |
t) |
300 |
|
|
301 |
(deftest char-lessp.8 |
(deftest char-lessp.8 |
302 |
(or (char-lessp #\9 #\a) (char-lessp #\z #\0) t) |
(notnot-mv (or (char-lessp #\9 #\a) (char-lessp #\z #\0))) |
303 |
t) |
t) |
304 |
|
|
305 |
(deftest char-not-lessp.1 |
(deftest char-not-lessp.1 |
329 |
t) |
t) |
330 |
|
|
331 |
(deftest char-not-lessp.7 |
(deftest char-not-lessp.7 |
332 |
(or (char-not-lessp #\A #\9) (char-not-lessp #\0 #\Z) t) |
(notnot-mv (or (char-not-lessp #\A #\9) (char-not-lessp #\0 #\Z))) |
333 |
t) |
t) |
334 |
|
|
335 |
(deftest char-not-lessp.8 |
(deftest char-not-lessp.8 |
336 |
(or (char-not-lessp #\a #\9) (char-not-lessp #\0 #\z) t) |
(notnot-mv (or (char-not-lessp #\a #\9) (char-not-lessp #\0 #\z))) |
337 |
t) |
t) |
338 |
|
|
339 |
(deftest char-greaterp.1 |
(deftest char-greaterp.1 |
363 |
t) |
t) |
364 |
|
|
365 |
(deftest char-greaterp.7 |
(deftest char-greaterp.7 |
366 |
(or (char-greaterp #\A #\9) (char-greaterp #\0 #\Z) t) |
(notnot-mv (or (char-greaterp #\A #\9) (char-greaterp #\0 #\Z))) |
367 |
t) |
t) |
368 |
|
|
369 |
(deftest char-greaterp.8 |
(deftest char-greaterp.8 |
370 |
(or (char-greaterp #\a #\9) (char-greaterp #\0 #\z) t) |
(notnot-mv (or (char-greaterp #\a #\9) (char-greaterp #\0 #\z))) |
371 |
t) |
t) |