Ejemplo n.º 1
0
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));
}
Ejemplo n.º 2
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));
}
Ejemplo n.º 3
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));
}