1 % Copyright (C) 2008 Bert Burgemeister
3 % Permission is granted to copy, distribute and/or modify this
4 % document under the terms of the GNU Free Documentation License,
5 % Version 1.2 or any later version published by the Free Software
6 % Foundation; with no Invariant Sections, no Front-Cover Texts and
7 % no Back-Cover Texts. For details see file COPYING.
10 %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
12 %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
16 \IT{\arrGOO{(
\FU*
{CHARACTERP
} \VAR{ foo
})\\
17 (
\FU*
{STANDARD-CHAR-P
} \VAR{ char
})
}{\
}}}
18 Return
\retval{\T} if
\VAR{foo
} is indicated type.
20 \IT{\arrGOO{(
\FU*
{GRAPHIC-CHAR-P
} \VAR{ char
})\\
21 (
\FU*
{ALPHA-CHAR-P
} \VAR{ char
})\\
22 (
\FU*
{ALPHANUMERICP
} \VAR{ char
})
}{\
}}}
23 \retval{\T} if
\VAR{char
} is visible, alphabetic, or
26 \IT{\arrGOO{(
\FU*
{UPPER-CASE-P
} \VAR{ char
})\\
27 (
\FU*
{LOWER-CASE-P
} \VAR{ char
})\\
28 (
\FU*
{BOTH-CASE-P
} \VAR{ char
})
}{\
}}}
29 Return
\retval{\T} if
\VAR{char
} is uppercase, lowercase, or
30 able to be in another case, resp.
32 \IT{(
\FU*
{DIGIT-CHAR-P
} \VAR{char
} \VAR{radix
}\DF{10})
}
33 Return
\retval{its weight
} if
\VAR{char
} is a digit, or
34 \retval{\NIL} otherwise.
36 \IT{\arrGOO{(
\FU*
{CHAR=
}\RP{\VAR{
37 character
}})\\(
\FU*
{CHAR/=
}\RP{\VAR{
39 Return
\retval{\T} if all
\VAR{character
}s, or
40 none, resp., are equal.
42 \IT{\arrGOO{(
\FU*
{CHAR-EQUAL
}\RP{\VAR{
43 character
}})\\(
\FU*
{CHAR-NOT-EQUAL
}\RP{\VAR{ character
}})
}{\
}}}
44 Return
\retval{\T} if all
\VAR{character
}s, or
45 none, resp., are equal ignoring case.
47 \IT{\arrGOO{(
\FU{CHAR
\boldmath$>$
}\RP{\VAR{
48 character
}})\\(
\FU{CHAR
\boldmath$>=$
}\RP{\VAR{
49 character
}})\\(
\FU{CHAR
\boldmath$<$
}\RP{\VAR{
50 character
}})\\(
\FU{CHAR
\boldmath$<=$
}\RP{\VAR{
52 \index{char>@CHAR
\boldmath$>$
}%
53 \index{char>=@CHAR
\boldmath$>=$
}%
54 \index{char<@CHAR
\boldmath$<$
}%
55 \index{char<=@CHAR
\boldmath$<=$
}%
56 Return
\retval{\T} if
\VAR{character
}s are
57 monotonically decreasing, monotonically non-increasing, monotonically
58 increasing, or monotonically non-decreasing, resp.
61 (
\FU*
{CHAR-GREATERP
}\RP{\VAR{ character
}})\\
62 (
\FU*
{CHAR-NOT-LESSP
}\RP{\VAR{ character
}})\\
63 (
\FU*
{CHAR-LESSP
}\RP{\VAR{ character
}})\\
64 (
\FU*
{CHAR-NOT-GREATERP
}\RP{\VAR{ character
}})
}{\
}}}
65 Return
\retval{\T} if
\VAR{character
}s are
66 monotonically decreasing, monotonically non-increasing, monotonically
67 increasing, or monotonically non-decreasing, resp., ignoring case.
69 \IT{\arrGOO{(
\FU*
{CHAR-UPCASE
} \VAR{ character
})\\
70 (
\FU*
{CHAR-DOWNCASE
} \VAR{ character
})
}{\
}}}
71 Return corresponding uppercase/lowercase
\retval{character
}, resp.
73 \IT{(
\kwd*
{CHAR-INT
} \VAR{character
})
}
74 Return
\retval{integer
} encoding
\VAR{character
}.
76 \IT{(
\FU*
{DIGIT-CHAR
} \VAR{i
} \Op{\VAR{radix
}\DF{10}})
}
77 \retval{Character
} representing digit
\VAR{i
}.
79 \IT{(
\FU*
{CHAR-NAME
} \VAR{character
})
}
80 Return
\retval{name
} of
\VAR{character
} if there is one, or
83 \IT{(
\FU*
{NAME-CHAR
} \VAR{name
})
}
84 Return
\retval{character
} with
\VAR{name
} if there is one, or
87 \IT{(
\FU*
{CHAR-CODE
} \VAR{character
})
}
88 Return
\retval{code of
\VAR{character
}}.
90 \IT{(
\FU*
{CODE-CHAR
} \VAR{code
})
}
91 \retval{Character
} with
\VAR{code
}.
93 \IT{\CNS*
{CHAR-CODE-LIMIT
}}
94 Upper bound of (
\FU{CHAR-CODE
} \VAR{char
}).
96 \IT{(
\FU*
{CHARACTER
} \VAR{c
})
}
97 Return
\retval{\kwd{\#$
\backslash$
}\VAR{c
}}.