Exemplo n.º 1
0
void Fhash_table_count(CL_FORM *base)
{
	LOAD_SMALLFIXNUM(1, ARG(1));
	LOAD_SYMBOL(SYMBOL(Slisp, 389), ARG(2));	/* HASH-TABLE */
	rt_struct_ref(ARG(0));
}
Exemplo n.º 2
0
void Fhash_table_test(CL_FORM *base)
{
	LOAD_FIXNUM(ARG(1), 4, ARG(1));
	LOAD_SYMBOL(SYMBOL(Slisp, 399), ARG(2));	/* HASH-TABLE */
	rt_struct_ref(ARG(0));
}