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 */ }