void bit_eqv1(CL_FORM *base) { LOAD_FIXNUM(ARG(3), 3, ARG(3)); COPY(ARG(0), ARG(4)); COPY(ARG(1), ARG(5)); COPY(ARG(2), ARG(6)); bit_op(ARG(3)); COPY(ARG(3), ARG(0)); }
void bit_nor1(CL_FORM *base) { LOAD_SMALLFIXNUM(5, ARG(3)); COPY(ARG(0), ARG(4)); COPY(ARG(1), ARG(5)); COPY(ARG(2), ARG(6)); bit_op(ARG(3)); COPY(ARG(3), ARG(0)); }
void bit_not1(CL_FORM *base) { LOAD_FIXNUM(ARG(2), 10, ARG(2)); COPY(ARG(0), ARG(3)); COPY(ARG(0), ARG(4)); COPY(ARG(1), ARG(5)); bit_op(ARG(2)); COPY(ARG(2), ARG(0)); }