35 |
#'(lambda (c1 c2) (not (char= c1 c2)))) |
#'(lambda (c1 c2) (not (char= c1 c2)))) |
36 |
t) |
t) |
37 |
|
|
38 |
|
(deftest char=.5 |
39 |
|
(let ((i 0) a b c) |
40 |
|
(values |
41 |
|
(char= (progn (setq a (incf i)) #\a) |
42 |
|
(progn (setq b (incf i)) #\a) |
43 |
|
(progn (setq c (incf i)) #\b)) |
44 |
|
i a b c)) |
45 |
|
nil 3 1 2 3) |
46 |
|
|
47 |
(deftest char/=.1 |
(deftest char/=.1 |
48 |
(is-ordered-by +code-chars+ #'char/=) |
(is-ordered-by +code-chars+ #'char/=) |
49 |
t) |
t) |
61 |
(is-ordered-by +rev-code-chars+ #'char/=) |
(is-ordered-by +rev-code-chars+ #'char/=) |
62 |
t) |
t) |
63 |
|
|
64 |
|
(deftest char/=.5 |
65 |
|
(let ((i 0) a b c) |
66 |
|
(values |
67 |
|
(char/= (progn (setq a (incf i)) #\a) |
68 |
|
(progn (setq b (incf i)) #\b) |
69 |
|
(progn (setq c (incf i)) #\b)) |
70 |
|
i a b c)) |
71 |
|
nil 3 1 2 3) |
72 |
|
|
73 |
(deftest char<=.1 |
(deftest char<=.1 |
74 |
(loop for c across +code-chars+ |
(loop for c across +code-chars+ |
75 |
always (char<= c c)) |
always (char<= c c)) |
103 |
(notnot-mv (or (char<= #\9 #\a) (char<= #\z #\0))) |
(notnot-mv (or (char<= #\9 #\a) (char<= #\z #\0))) |
104 |
t) |
t) |
105 |
|
|
106 |
|
(deftest char<=.9 |
107 |
|
(let ((i 0) a b c) |
108 |
|
(values |
109 |
|
(char<= (progn (setq a (incf i)) #\a) |
110 |
|
(progn (setq b (incf i)) #\b) |
111 |
|
(progn (setq c (incf i)) #\a)) |
112 |
|
i a b c)) |
113 |
|
nil 3 1 2 3) |
114 |
|
|
115 |
(deftest char<.1 |
(deftest char<.1 |
116 |
(loop for c across +code-chars+ |
(loop for c across +code-chars+ |
117 |
never (char< c c)) |
never (char< c c)) |
145 |
(notnot-mv (or (char< #\9 #\a) (char< #\z #\0))) |
(notnot-mv (or (char< #\9 #\a) (char< #\z #\0))) |
146 |
t) |
t) |
147 |
|
|
148 |
|
(deftest char<.9 |
149 |
|
(let ((i 0) a b c) |
150 |
|
(values |
151 |
|
(char< (progn (setq a (incf i)) #\a) |
152 |
|
(progn (setq b (incf i)) #\b) |
153 |
|
(progn (setq c (incf i)) #\a)) |
154 |
|
i a b c)) |
155 |
|
nil 3 1 2 3) |
156 |
|
|
157 |
(deftest char>=.1 |
(deftest char>=.1 |
158 |
(loop for c across +code-chars+ |
(loop for c across +code-chars+ |
187 |
(notnot-mv (or (char>= #\a #\9) (char>= #\0 #\z))) |
(notnot-mv (or (char>= #\a #\9) (char>= #\0 #\z))) |
188 |
t) |
t) |
189 |
|
|
190 |
|
(deftest char>=.9 |
191 |
|
(let ((i 0) a b c) |
192 |
|
(values |
193 |
|
(char>= (progn (setq a (incf i)) #\b) |
194 |
|
(progn (setq b (incf i)) #\a) |
195 |
|
(progn (setq c (incf i)) #\b)) |
196 |
|
i a b c)) |
197 |
|
nil 3 1 2 3) |
198 |
|
|
199 |
(deftest char>.1 |
(deftest char>.1 |
200 |
(loop for c across +code-chars+ |
(loop for c across +code-chars+ |
201 |
never (char> c c)) |
never (char> c c)) |
229 |
(notnot-mv (or (char> #\a #\9) (char> #\0 #\z))) |
(notnot-mv (or (char> #\a #\9) (char> #\0 #\z))) |
230 |
t) |
t) |
231 |
|
|
232 |
|
(deftest char>.9 |
233 |
|
(let ((i 0) a b c) |
234 |
|
(values |
235 |
|
(char> (progn (setq a (incf i)) #\b) |
236 |
|
(progn (setq b (incf i)) #\a) |
237 |
|
(progn (setq c (incf i)) #\b)) |
238 |
|
i a b c)) |
239 |
|
nil 3 1 2 3) |
240 |
|
|
241 |
;;; Case-insensitive comparisons |
;;; Case-insensitive comparisons |
242 |
|
|
243 |
(deftest char-equal.1 |
(deftest char-equal.1 |
266 |
(not (char-equal c1 c2))))) |
(not (char-equal c1 c2))))) |
267 |
t) |
t) |
268 |
|
|
269 |
|
(deftest char-equal.5 |
270 |
|
(let ((i 0) a b c) |
271 |
|
(values |
272 |
|
(char-equal (progn (setq a (incf i)) #\a) |
273 |
|
(progn (setq b (incf i)) #\a) |
274 |
|
(progn (setq c (incf i)) #\b)) |
275 |
|
i a b c)) |
276 |
|
nil 3 1 2 3) |
277 |
|
|
278 |
(deftest char-not-equal.1 |
(deftest char-not-equal.1 |
279 |
(is-ordered-by +code-chars+ #'(lambda (c1 c2) |
(is-ordered-by +code-chars+ #'(lambda (c1 c2) |
280 |
(or (char= (char-downcase c1) |
(or (char= (char-downcase c1) |
298 |
(char-not-equal c1 c2)))) |
(char-not-equal c1 c2)))) |
299 |
t) |
t) |
300 |
|
|
301 |
|
(deftest char-not-equal.5 |
302 |
|
(let ((i 0) a b c) |
303 |
|
(values |
304 |
|
(char-not-equal (progn (setq a (incf i)) #\a) |
305 |
|
(progn (setq b (incf i)) #\b) |
306 |
|
(progn (setq c (incf i)) #\b)) |
307 |
|
i a b c)) |
308 |
|
nil 3 1 2 3) |
309 |
|
|
310 |
(deftest char-not-greaterp.1 |
(deftest char-not-greaterp.1 |
311 |
(loop for c across +code-chars+ |
(loop for c across +code-chars+ |
312 |
always (char-not-greaterp c c)) |
always (char-not-greaterp c c)) |
340 |
(notnot-mv (or (char-not-greaterp #\9 #\a) (char-not-greaterp #\z #\0))) |
(notnot-mv (or (char-not-greaterp #\9 #\a) (char-not-greaterp #\z #\0))) |
341 |
t) |
t) |
342 |
|
|
343 |
|
(deftest char-not-greaterp.9 |
344 |
|
(let ((i 0) a b c) |
345 |
|
(values |
346 |
|
(char-not-greaterp (progn (setq a (incf i)) #\a) |
347 |
|
(progn (setq b (incf i)) #\b) |
348 |
|
(progn (setq c (incf i)) #\a)) |
349 |
|
i a b c)) |
350 |
|
nil 3 1 2 3) |
351 |
|
|
352 |
(deftest char-lessp.1 |
(deftest char-lessp.1 |
353 |
(loop for c across +code-chars+ |
(loop for c across +code-chars+ |
354 |
never (char-lessp c c)) |
never (char-lessp c c)) |
382 |
(notnot-mv (or (char-lessp #\9 #\a) (char-lessp #\z #\0))) |
(notnot-mv (or (char-lessp #\9 #\a) (char-lessp #\z #\0))) |
383 |
t) |
t) |
384 |
|
|
385 |
|
(deftest char-lessp.9 |
386 |
|
(let ((i 0) a b c) |
387 |
|
(values |
388 |
|
(char-lessp (progn (setq a (incf i)) #\a) |
389 |
|
(progn (setq b (incf i)) #\b) |
390 |
|
(progn (setq c (incf i)) #\a)) |
391 |
|
i a b c)) |
392 |
|
nil 3 1 2 3) |
393 |
|
|
394 |
(deftest char-not-lessp.1 |
(deftest char-not-lessp.1 |
395 |
(loop for c across +code-chars+ |
(loop for c across +code-chars+ |
396 |
always (char-not-lessp c c)) |
always (char-not-lessp c c)) |
425 |
(notnot-mv (or (char-not-lessp #\a #\9) (char-not-lessp #\0 #\z))) |
(notnot-mv (or (char-not-lessp #\a #\9) (char-not-lessp #\0 #\z))) |
426 |
t) |
t) |
427 |
|
|
428 |
|
(deftest char-not-lessp.9 |
429 |
|
(let ((i 0) a b c) |
430 |
|
(values |
431 |
|
(char-not-lessp (progn (setq a (incf i)) #\b) |
432 |
|
(progn (setq b (incf i)) #\a) |
433 |
|
(progn (setq c (incf i)) #\b)) |
434 |
|
i a b c)) |
435 |
|
nil 3 1 2 3) |
436 |
|
|
437 |
(deftest char-greaterp.1 |
(deftest char-greaterp.1 |
438 |
(loop for c across +code-chars+ |
(loop for c across +code-chars+ |
439 |
never (char-greaterp c c)) |
never (char-greaterp c c)) |
467 |
(deftest char-greaterp.8 |
(deftest char-greaterp.8 |
468 |
(notnot-mv (or (char-greaterp #\a #\9) (char-greaterp #\0 #\z))) |
(notnot-mv (or (char-greaterp #\a #\9) (char-greaterp #\0 #\z))) |
469 |
t) |
t) |
470 |
|
|
471 |
|
(deftest char-greaterp.9 |
472 |
|
(let ((i 0) a b c) |
473 |
|
(values |
474 |
|
(char-greaterp (progn (setq a (incf i)) #\b) |
475 |
|
(progn (setq b (incf i)) #\a) |
476 |
|
(progn (setq c (incf i)) #\b)) |
477 |
|
i a b c)) |
478 |
|
nil 3 1 2 3) |