void rt_charGE(CL_FORM *base) { COPY(ARG(0), ARG(2)); Fchar_code(ARG(2)); COPY(ARG(1), ARG(3)); Fchar_code(ARG(3)); Fge(ARG(2), 2); COPY(ARG(2), ARG(0)); }
void rt_char_equal(CL_FORM *base) { COPY(ARG(0), ARG(2)); Fchar_upcase(ARG(2)); Fchar_code(ARG(2)); COPY(ARG(1), ARG(3)); Fchar_upcase(ARG(3)); Fchar_code(ARG(3)); Fnumeql(ARG(2), 2); COPY(ARG(2), ARG(0)); }
void Fchar_int(CL_FORM *base) { Fchar_code(ARG(0)); }