void Fremhash(CL_FORM *base)
{
COPY(ARG(0), ARG(2));
LOAD_SMALLFIXNUM(0, ARG(3));
internal_sxhash(ARG(2));
mv_count = 1;
COPY(ARG(1), ARG(3));
LOAD_SYMBOL(SYMBOL(Slisp, 389), ARG(4)); /* HASH-TABLE */
rt_struct_typep(ARG(3));
if(CL_TRUEP(ARG(3)))
{
COPY(OFFSET(AR_BASE(GET_FORM(ARG(1))), 0 + 1), ARG(3));
}
else
{
COPY(SYMVAL(Slisp, 342), ARG(3)); /* NO_STRUCT */
COPY(ARG(1), ARG(4));
LOAD_SYMBOL(SYMBOL(Slisp, 389), ARG(5)); /* HASH-TABLE */
Ferror(ARG(3), 3);
}
COPY(ARG(2), ARG(4));
COPY(ARG(3), ARG(5));
LOAD_SMALLFIXNUM(0, ARG(6));
rt_convert_to_int(ARG(4));
COPY(&mv_buf[0], ARG(5));
mv_count = 1;
{
COPY(ARG(5), ARG(2));
}
COPY(ARG(1), ARG(3));
hash_table_array(ARG(3));
COPY(ARG(2), ARG(4));
COPY(ARG(1), ARG(5));
hash_table_array(ARG(5));
LOAD_BOOL(CL_SMVECP(ARG(5)), ARG(6));
if(CL_TRUEP(ARG(6)))
{
goto THEN1;
}
else
{
COPY(ARG(5), ARG(7));
LOAD_SYMBOL(SYMBOL(Slisp, 150), ARG(8)); /* COMPLEX-VECTOR */
rt_struct_typep(ARG(7));
}
if(CL_TRUEP(ARG(7)))
{
THEN1:;
}
else
{
COPY(SYMVAL(Slisp, 58), ARG(6)); /* WRONG_TYPE */
COPY(ARG(5), ARG(7));
LOAD_SYMBOL(SYMBOL(Slisp, 47), ARG(8)); /* VECTOR */
Ferror(ARG(6), 3);
}
COPY(ARG(2), ARG(6));
Frow_major_aref(ARG(5));
COPY(ARG(1), ARG(6));
LOAD_SYMBOL(SYMBOL(Slisp, 389), ARG(7)); /* HASH-TABLE */
rt_struct_typep(ARG(6));
if(CL_TRUEP(ARG(6)))
{
COPY(OFFSET(AR_BASE(GET_FORM(ARG(1))), 4 + 1), ARG(6));
}
else
{
COPY(SYMVAL(Slisp, 342), ARG(6)); /* NO_STRUCT */
COPY(ARG(1), ARG(7));
LOAD_SYMBOL(SYMBOL(Slisp, 389), ARG(8)); /* HASH-TABLE */
Ferror(ARG(6), 3);
}
LOAD_SMALLFIXNUM(0, ARG(7));
COPY(SYMVAL(Slisp, 0), ARG(8)); /* MOST-POSITIVE-FIXNUM */
COPY(SYMVAL(Slisp, 0), ARG(9)); /* MOST-POSITIVE-FIXNUM */
COPY(ARG(0), ARG(10));
COPY(ARG(5), ARG(11));
LOAD_NIL(ARG(12));
COPY(ARG(6), ARG(13));
LOAD_NIL(ARG(14));
COPY(ARG(7), ARG(15));
COPY(ARG(8), ARG(16));
COPY(ARG(9), ARG(17));
LOAD_GLOBFUN(&CFcar, ARG(18));
delete1(ARG(10));
COPY(ARG(10), ARG(5));
COPY(ARG(5), ARG(0));
COPY(ARG(3), ARG(1));
COPY(ARG(4), ARG(2));
rt_set_vref(ARG(0));
}
void vector_push_extend1(CL_FORM *base)
{
COPY(ARG(1), ARG(3));
Farray_has_fill_pointer_p(ARG(3));
if(CL_TRUEP(ARG(3)))
{
}
else
{
COPY(SYMVAL(Slisp, 154), ARG(3)); /* NO_FILL_PTR */
COPY(ARG(1), ARG(4));
Ferror(ARG(3), 2);
}
COPY(ARG(1), ARG(3));
LOAD_SYMBOL(SYMBOL(Slisp, 150), ARG(4)); /* COMPLEX-VECTOR */
rt_struct_typep(ARG(3));
if(CL_TRUEP(ARG(3)))
{
COPY(OFFSET(AR_BASE(GET_FORM(ARG(1))), 3 + 1), ARG(3));
}
else
{
COPY(SYMVAL(Slisp, 352), ARG(3)); /* NO_STRUCT */
COPY(ARG(1), ARG(4));
LOAD_SYMBOL(SYMBOL(Slisp, 150), ARG(5)); /* COMPLEX-VECTOR */
Ferror(ARG(3), 3);
}
COPY(ARG(3), ARG(4));
COPY(ARG(1), ARG(5));
Farray_total_size(ARG(5));
Fge(ARG(4), 2);
if(CL_TRUEP(ARG(4)))
{
COPY(ARG(1), ARG(4));
if(CL_TRUEP(ARG(2)))
{
COPY(ARG(1), ARG(5));
Farray_total_size(ARG(5));
COPY(ARG(2), ARG(6));
Fplus(ARG(5), 2);
}
else
{
LOAD_FIXNUM(ARG(5), 2, ARG(5));
COPY(ARG(1), ARG(6));
Farray_total_size(ARG(6));
Fmult(ARG(5), 2);
}
LOAD_NIL(ARG(6));
LOAD_NIL(ARG(7));
LOAD_NIL(ARG(8));
COPY(ARG(3), ARG(9));
LOAD_NIL(ARG(10));
LOAD_NIL(ARG(11));
LOAD_SYMBOL(SYMBOL(Slisp, 101), ARG(12)); /* FILL-POINTER */
COPY(ARG(3), ARG(13));
Flist(ARG(12), 2);
LOAD_NIL(ARG(13));
LOAD_SYMBOL(SYMBOL(Slisp, 48), ARG(14)); /* T */
adjust_array1(ARG(4));
}
COPY(ARG(0), ARG(4));
COPY(ARG(1), ARG(5));
COPY(ARG(3), ARG(6));
rt_set_vref(ARG(4));
COPY(ARG(3), ARG(4));
F1plus(ARG(4));
COPY(ARG(1), ARG(5));
Fset_fill_pointer(ARG(4));
COPY(ARG(3), ARG(0));
}
void make_dispatch_macro_character1(CL_FORM *base)
{
LOAD_FIXNUM(ARG(3), 256, ARG(3));
LOAD_SYMBOL(SYMBOL(Slisp, 48), ARG(4)); /* T */
LOAD_NIL(ARG(5));
LOAD_NIL(ARG(6));
LOAD_NIL(ARG(7));
LOAD_NIL(ARG(8));
LOAD_NIL(ARG(9));
LOAD_FIXNUM(ARG(10), 0, ARG(10));
LOAD_SYMBOL(SYMBOL(Slisp, 48), ARG(11)); /* T */
LOAD_NIL(ARG(12));
LOAD_NIL(ARG(13));
make_array1(ARG(3));
GEN_HEAPVAR(ARG(3), ARG(4));
COPY(ARG(2), ARG(4));
LOAD_SYMBOL(SYMBOL(Slisp, 420), ARG(5)); /* READTABLE */
rt_struct_typep(ARG(4));
if(CL_TRUEP(ARG(4)))
{
COPY(OFFSET(AR_BASE(GET_FORM(ARG(2))), 0 + 1), ARG(4));
}
else
{
COPY(SYMVAL(Slisp, 352), ARG(4)); /* NO_STRUCT */
COPY(ARG(2), ARG(5));
LOAD_SYMBOL(SYMBOL(Slisp, 420), ARG(6)); /* READTABLE */
Ferror(ARG(4), 3);
}
if(CL_CHARP(ARG(0)))
{
}
else
{
COPY(SYMVAL(Slisp, 58), ARG(5)); /* WRONG_TYPE */
COPY(ARG(0), ARG(6));
LOAD_SYMBOL(SYMBOL(Slisp, 18), ARG(7)); /* CHARACTER */
Ferror(ARG(5), 3);
}
COPY(ARG(0), ARG(5));
rt_char_code(ARG(5));
{
GEN_CLOSURE(array, ARG(6), 4, Z49_lambda, 2);
COPY(ARG(3), &array[3]);
LOAD_CLOSURE(array, ARG(6));
}
COPY(ARG(6), ARG(6));
ALLOC_CONS(ARG(8), ARG(6), ARG(1), ARG(6));
COPY(ARG(6), ARG(7));
COPY(ARG(4), ARG(8));
COPY(ARG(5), ARG(9));
rt_set_vref(ARG(7));
COPY(ARG(0), ARG(4));
COPY(ARG(2), ARG(5));
LOAD_SYMBOL(SYMBOL(Slisp, 420), ARG(6)); /* READTABLE */
rt_struct_typep(ARG(5));
if(CL_TRUEP(ARG(5)))
{
COPY(OFFSET(AR_BASE(GET_FORM(ARG(2))), 1 + 1), ARG(5));
}
else
{
COPY(SYMVAL(Slisp, 352), ARG(5)); /* NO_STRUCT */
COPY(ARG(2), ARG(6));
LOAD_SYMBOL(SYMBOL(Slisp, 420), ARG(7)); /* READTABLE */
Ferror(ARG(5), 3);
}
LOAD_NIL(ARG(6));
LOAD_NIL(ARG(7));
LOAD_NIL(ARG(8));
assoc1(ARG(4));
if(CL_TRUEP(ARG(4)))
{
if(CL_CONSP(ARG(4)))
{
COPY(INDIRECT(ARG(3)), GET_CDR(ARG(4)));
}
else
{
LOAD_SMSTR((CL_FORM *)&KClisp[254], ARG(5)); /* ~a is not a cons */
COPY(ARG(4), ARG(6));
Ferror(ARG(5), 2);
}
}
else
{
ALLOC_CONS(ARG(7), ARG(0), INDIRECT(ARG(3)), ARG(5));
COPY(ARG(2), ARG(6));
LOAD_SYMBOL(SYMBOL(Slisp, 420), ARG(7)); /* READTABLE */
rt_struct_typep(ARG(6));
if(CL_TRUEP(ARG(6)))
{
COPY(OFFSET(AR_BASE(GET_FORM(ARG(2))), 1 + 1), ARG(6));
}
else
{
COPY(SYMVAL(Slisp, 352), ARG(6)); /* NO_STRUCT */
COPY(ARG(2), ARG(7));
LOAD_SYMBOL(SYMBOL(Slisp, 420), ARG(8)); /* READTABLE */
Ferror(ARG(6), 3);
}
ALLOC_CONS(ARG(7), ARG(5), ARG(6), ARG(5));
LOAD_FIXNUM(ARG(6), 1, ARG(6));
COPY(ARG(2), ARG(7));
LOAD_SYMBOL(SYMBOL(Slisp, 420), ARG(8)); /* READTABLE */
rt_struct_typep(ARG(7));
if(CL_TRUEP(ARG(7)))
{
COPY(ARG(5), OFFSET(AR_BASE(GET_FORM(ARG(2))), 1 + 1));
}
else
{
COPY(SYMVAL(Slisp, 352), ARG(7)); /* NO_STRUCT */
COPY(ARG(2), ARG(8));
LOAD_SYMBOL(SYMBOL(Slisp, 420), ARG(9)); /* READTABLE */
Ferror(ARG(7), 3);
}
}
LOAD_SYMBOL(SYMBOL(Slisp, 48), ARG(0)); /* T */
}
