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
})
}{.
}}
19 \retval{\T} if
\VAR{foo
} is of indicated type.
22 \IT{\arrGOO{(
\FU*
{GRAPHIC-CHAR-P
} \VAR{ char
})\\
23 (
\FU*
{ALPHA-CHAR-P
} \VAR{ char
})\\
24 (
\FU*
{ALPHANUMERICP
} \VAR{ char
})
}{.
}}
26 \retval{\T} if
\VAR{char
} is visible, alphabetic, or
27 alphanumeric, respectively.
30 \IT{\arrGOO{(
\FU*
{UPPER-CASE-P
} \VAR{ char
})\\
31 (
\FU*
{LOWER-CASE-P
} \VAR{ char
})\\
32 (
\FU*
{BOTH-CASE-P
} \VAR{ char
})
}{.
}}
34 Return
\retval{\T} if
\VAR{char
} is uppercase, lowercase, or
35 able to be in another case, respectively.
38 \IT{(
\FU*
{DIGIT-CHAR-P
} \VAR{char
} \VAR{radix
}\DF{10})
}
40 Return
\retval{its weight
} if
\VAR{char
} is a digit, or
41 \retval{\NIL} otherwise.
44 \IT{\arrGOO{(
\FU*
{CHAR=
}\RP{\VAR{
45 character
}})\\(
\FU*
{CHAR/=
}\RP{\VAR{
48 Return
\retval{\T} if all
\VAR{character
}s, or
49 none, respectively, are equal.
52 \IT{\arrGOO{(
\FU*
{CHAR-EQUAL
}\RP{\VAR{
53 character
}})\\(
\FU*
{CHAR-NOT-EQUAL
}\RP{\VAR{
56 Return
\retval{\T} if all
\VAR{character
}s, or
57 none, respectively, are equal ignoring case.
60 \IT{\arrGOO{(
\FU{CHAR
\boldmath$>$
}\RP{\VAR{
61 character
}})\\(
\FU{CHAR
\boldmath$>=$
}\RP{\VAR{
62 character
}})\\(
\FU{CHAR
\boldmath$<$
}\RP{\VAR{
63 character
}})\\(
\FU{CHAR
\boldmath$<=$
}\RP{\VAR{
66 \index{char>@CHAR$>$
}%
67 \index{char>=@CHAR$>=$
}%
68 \index{char<@CHAR$<$
}%
69 \index{char<=@CHAR$<=$
}%
70 Return
\retval{\T} if
\VAR{character
}s are
71 monotonically decreasing, monotonically non-increasing, monotonically
72 increasing, or monotonically non-decreasing, respectively.
76 (
\FU*
{CHAR-GREATERP
}\RP{\VAR{ character
}})\\
77 (
\FU*
{CHAR-NOT-LESSP
}\RP{\VAR{ character
}})\\
78 (
\FU*
{CHAR-LESSP
}\RP{\VAR{ character
}})\\
79 (
\FU*
{CHAR-NOT-GREATERP
}\RP{\VAR{ character
}})
}{.
}}
81 Return
\retval{\T} if
\VAR{character
}s are
82 monotonically decreasing, monotonically non-increasing, monotonically
83 increasing, or monotonically non-decreasing, respectively, ignoring case.
86 \IT{\arrGOO{(
\FU*
{CHAR-UPCASE
} \VAR{ character
})\\
87 (
\FU*
{CHAR-DOWNCASE
} \VAR{ character
})
}{.
}}
89 Return corresponding uppercase/lowercase
\retval{character
}, respectively.
92 \IT{(
\FU*
{DIGIT-CHAR
} \VAR{i
} \Op{\VAR{radix
}\DF{10}})
}
94 \retval{Character
} representing digit
\VAR{i
}.
97 \IT{(
\FU*
{CHAR-NAME
} \VAR{character
})
}
99 \retval{Name
} of
\VAR{character
} if there is one, or
103 \IT{(
\FU*
{NAME-CHAR
} \VAR{name
})
}
105 \retval{Character
} with
\VAR{name
} if there is one, or
109 \IT{\arrGOO{(
\FU*
{CHAR-INT
} \VAR{ character
})\\
110 (
\FU*
{CHAR-CODE
} \VAR{ character
})
}{.
}}
112 \retval{Code
} of
\VAR{character
}.
115 \IT{(
\FU*
{CODE-CHAR
} \VAR{code
})
}
117 \retval{Character
} with
\VAR{code
}.
120 \IT{\CNS*
{CHAR-CODE-LIMIT
}}
122 Upper bound of (
\FU{CHAR-CODE
} \VAR{char
}).
125 \IT{(
\FU*
{CHARACTER
} \VAR{c
})
}
127 Return
\retval{\kwd{\#$
\backslash$
}\VAR{c
}}.