13 |
char-not-lessp char-not-greaterp char-not-equal) |
char-not-lessp char-not-greaterp char-not-equal) |
14 |
collect (classify-error (funcall f))) |
collect (classify-error (funcall f))) |
15 |
(program-error program-error program-error program-error |
(program-error program-error program-error program-error |
16 |
program-error program-error program-error program-error)) |
program-error program-error program-error program-error |
17 |
|
program-error program-error program-error program-error |
18 |
|
)) |
19 |
|
|
20 |
(deftest char=.1 |
(deftest char=.1 |
21 |
(is-ordered-by +code-chars+ #'(lambda (c1 c2) (not (char= c1 c2)))) |
(is-ordered-by +code-chars+ #'(lambda (c1 c2) (not (char= c1 c2)))) |