11 |
(loop for f in '(char= char/= char< char> char<= char>= |
(loop for f in '(char= char/= char< char> char<= char>= |
12 |
char-lessp char-greaterp char-equal |
char-lessp char-greaterp char-equal |
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 (eval `(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 |
program-error program-error program-error program-error |