void Ftruncate(CL_FORM *base, int nargs) { switch(nargs) { case 1: LOAD_SMALLFIXNUM(1, ARG(1)); case 2: break; default: Labort(TOO_MANY_ARGS); } truncate1(ARG(0)); }
void Fget_macro_character(CL_FORM *base, int nargs) { switch(nargs) { case 1: COPY(SYMVAL(Slisp, 454), ARG(1)); /* *READTABLE* */ case 2: break; default: Labort(TOO_MANY_ARGS); } get_macro_character1(ARG(0)); }
void Fbutlast(CL_FORM *base, int nargs) { switch(nargs) { case 1: LOAD_FIXNUM(ARG(1), 1, ARG(1)); case 2: break; default: Labort(TOO_MANY_ARGS); } butlast1(ARG(0)); }
void Fgetf(CL_FORM *base, int nargs) { switch(nargs) { case 2: LOAD_NIL(ARG(2)); case 3: break; default: Labort(TOO_MANY_ARGS); } getf1(ARG(0)); }
void Fimport(CL_FORM *base, int nargs) { switch(nargs) { case 1: COPY(SYMVAL(Slisp, 343), ARG(1)); /* *PACKAGE* */ case 2: break; default: Labort(TOO_MANY_ARGS); } import1(ARG(0)); }
void Fuse_package(CL_FORM *base, int nargs) { switch(nargs) { case 1: COPY(SYMVAL(Slisp, 353), ARG(1)); /* *PACKAGE* */ case 2: break; default: Labort(TOO_MANY_ARGS); } use_package1(ARG(0)); }
void Fdigit_char_p(CL_FORM *base, int nargs) { switch(nargs) { case 1: LOAD_FIXNUM(ARG(1), 10, ARG(1)); case 2: break; default: Labort(TOO_MANY_ARGS); } digit_char_p1(ARG(0)); }
void Ffresh_line(CL_FORM *base, int nargs) { switch(nargs) { case 0: LOAD_NIL(ARG(0)); case 1: break; default: Labort(TOO_MANY_ARGS); } fresh_line1(ARG(0)); }
void Fmake_dispatch_macro_character(CL_FORM *base, int nargs) { switch(nargs) { case 1: LOAD_NIL(ARG(1)); case 2: COPY(SYMVAL(Slisp, 449), ARG(2)); /* *READTABLE* */ case 3: break; default: Labort(TOO_MANY_ARGS); } make_dispatch_macro_character1(ARG(0)); }
void Fgentemp(CL_FORM *base, int nargs) { switch(nargs) { case 0: LOAD_SMSTR((CL_FORM *)&KClisp[64], ARG(0)); /* T */ case 1: COPY(SYMVAL(Slisp, 353), ARG(1)); /* *PACKAGE* */ case 2: break; default: Labort(TOO_MANY_ARGS); } gentemp1(ARG(0)); }
void Fmake_string_input_stream(CL_FORM *base, int nargs) { switch(nargs) { case 1: LOAD_FIXNUM(ARG(1), 0, ARG(1)); case 2: COPY(ARG(0), ARG(2)); Flength(ARG(2)); case 3: break; default: Labort(TOO_MANY_ARGS); } make_string_input_stream1(ARG(0)); }
void Fread(CL_FORM *base, int nargs) { switch(nargs) { case 0: COPY(SYMVAL(Slisp, 60), ARG(0)); /* *STANDARD-INPUT* */ case 1: LOAD_SYMBOL(SYMBOL(Slisp, 48), ARG(1)); /* T */ case 2: LOAD_NIL(ARG(2)); case 3: LOAD_NIL(ARG(3)); case 4: break; default: Labort(TOO_MANY_ARGS); } read1(ARG(0)); }
void Fread_char(CL_FORM *base, int nargs) { switch(nargs) { case 0: LOAD_NIL(ARG(0)); case 1: LOAD_SYMBOL(SYMBOL(Slisp, 48), ARG(1)); /* T */ case 2: LOAD_NIL(ARG(2)); case 3: LOAD_NIL(ARG(3)); case 4: break; default: Labort(TOO_MANY_ARGS); } read_char1(ARG(0)); }
void Fmake_string_output_stream(CL_FORM *base, int nargs) { switch(nargs) { case 0: LOAD_SMALLFIXNUM(10, ARG(0)); LOAD_SYMBOL(SYMBOL(Slisp, 99), ARG(1)); /* ELEMENT-TYPE */ LOAD_SYMBOL(SYMBOL(Slisp, 18), ARG(2)); /* CHARACTER */ LOAD_SYMBOL(SYMBOL(Slisp, 100), ARG(3)); /* ADJUSTABLE */ LOAD_SYMBOL(SYMBOL(Slisp, 48), ARG(4)); /* T */ LOAD_SYMBOL(SYMBOL(Slisp, 101), ARG(5)); /* FILL-POINTER */ LOAD_SMALLFIXNUM(0, ARG(6)); Fmake_array(ARG(0), 7); case 1: break; default: Labort(TOO_MANY_ARGS); } make_string_output_stream1(ARG(0)); }