void Fsubstitute_if(CL_FORM *base, int nargs) { BOOL supl_flags[5]; static CL_FORM * keylist[] = { SYMBOL(Slisp, 284), /* FROM-END */ SYMBOL(Slisp, 229), /* START */ SYMBOL(Slisp, 230), /* END */ SYMBOL(Slisp, 382), /* COUNT */ SYMBOL(Slisp, 207), /* KEY */ }; keysort(ARG(3), nargs - 3, 5, keylist, supl_flags, FALSE); if(NOT(supl_flags[0])) { LOAD_NIL(ARG(3)); } if(NOT(supl_flags[1])) { LOAD_SMALLFIXNUM(0, ARG(4)); } if(NOT(supl_flags[2])) { COPY(SYMVAL(Slisp, 0), ARG(5)); /* MOST-POSITIVE-FIXNUM */ } if(NOT(supl_flags[3])) { COPY(SYMVAL(Slisp, 0), ARG(6)); /* MOST-POSITIVE-FIXNUM */ } if(NOT(supl_flags[4])) { LOAD_NIL(ARG(7)); } substitute_if1(ARG(0)); }
void Fstring_lessp(CL_FORM *base, int nargs) { BOOL supl_flags[4]; static CL_FORM * keylist[] = { SYMBOL(Slisp, 302), /* START1 */ SYMBOL(Slisp, 303), /* END1 */ SYMBOL(Slisp, 280), /* START2 */ SYMBOL(Slisp, 281), /* END2 */ }; keysort(ARG(2), nargs - 2, 4, keylist, supl_flags, FALSE); if(NOT(supl_flags[0])) { LOAD_FIXNUM(ARG(6), 0, ARG(2)); } if(NOT(supl_flags[1])) { LOAD_NIL(ARG(3)); } if(NOT(supl_flags[2])) { LOAD_FIXNUM(ARG(6), 0, ARG(4)); } if(NOT(supl_flags[3])) { LOAD_NIL(ARG(5)); } string_lessp1(ARG(0)); }
void Fcount_if_not(CL_FORM *base, int nargs) { BOOL supl_flags[4]; static CL_FORM * keylist[] = { SYMBOL(Slisp, 284), /* FROM-END */ SYMBOL(Slisp, 229), /* START */ SYMBOL(Slisp, 230), /* END */ SYMBOL(Slisp, 207), /* KEY */ }; keysort(ARG(2), nargs - 2, 4, keylist, supl_flags, FALSE); if(NOT(supl_flags[0])) { LOAD_NIL(ARG(2)); } if(NOT(supl_flags[1])) { LOAD_SMALLFIXNUM(0, ARG(3)); } if(NOT(supl_flags[2])) { COPY(SYMVAL(Slisp, 0), ARG(4)); /* MOST-POSITIVE-FIXNUM */ } if(NOT(supl_flags[3])) { LOAD_NIL(ARG(5)); } count_if_not1(ARG(0)); }
void Fmake_array(CL_FORM *base, int nargs) { BOOL supl_flags[7]; static CL_FORM * keylist[] = { SYMBOL(Slisp, 99), /* ELEMENT-TYPE */ SYMBOL(Slisp, 155), /* INITIAL-ELEMENT */ SYMBOL(Slisp, 103), /* INITIAL-CONTENTS */ SYMBOL(Slisp, 100), /* ADJUSTABLE */ SYMBOL(Slisp, 101), /* FILL-POINTER */ SYMBOL(Slisp, 156), /* DISPLACED-TO */ SYMBOL(Slisp, 157), /* DISPLACED-INDEX-OFFSET */ }; keysort(ARG(1), nargs - 1, 7, keylist, supl_flags, FALSE); if(NOT(supl_flags[0])) { LOAD_SYMBOL(SYMBOL(Slisp, 48), ARG(1)); /* T */ } if(NOT(supl_flags[1])) { LOAD_NIL(ARG(2)); LOAD_NIL(ARG(8)); } else { LOAD_T(ARG(8)); } if(NOT(supl_flags[2])) { LOAD_NIL(ARG(3)); LOAD_NIL(ARG(9)); } else { LOAD_T(ARG(9)); } if(NOT(supl_flags[3])) { LOAD_NIL(ARG(4)); } if(NOT(supl_flags[4])) { LOAD_NIL(ARG(5)); } if(NOT(supl_flags[5])) { LOAD_NIL(ARG(6)); } if(NOT(supl_flags[6])) { LOAD_FIXNUM(ARG(10), 0, ARG(7)); LOAD_NIL(ARG(10)); } else { LOAD_T(ARG(10)); } make_array1(ARG(0)); }
void Fmake_string(CL_FORM *base, int nargs) { BOOL supl_flags[1]; static CL_FORM * keylist[] = { SYMBOL(Slisp, 155), /* INITIAL-ELEMENT */ }; keysort(ARG(1), nargs - 1, 1, keylist, supl_flags, FALSE); if(NOT(supl_flags[0])) { LOAD_CHAR(ARG(2), ' ', ARG(1)); } make_string1(ARG(0)); }
void Fassoc_if_not(CL_FORM *base, int nargs) { BOOL supl_flags[1]; static CL_FORM * keylist[] = { SYMBOL(Slisp, 209), /* KEY */ }; keysort(ARG(2), nargs - 2, 1, keylist, supl_flags, FALSE); if(NOT(supl_flags[0])) { LOAD_NIL(ARG(2)); } assoc_if_not1(ARG(0)); }
void Fpathname_type(CL_FORM *base, int nargs) { BOOL supl_flags[1]; static CL_FORM * keylist[] = { SYMBOL(Slisp, 277), /* CASE */ }; keysort(ARG(1), nargs - 1, 1, keylist, supl_flags, FALSE); if(NOT(supl_flags[0])) { LOAD_SYMBOL(SYMBOL(Slisp, 276), ARG(1)); /* LOCAL */ } pathname_type1(ARG(0)); }
void Fclose(CL_FORM *base, int nargs) { BOOL supl_flags[1]; static CL_FORM * keylist[] = { SYMBOL(Slisp, 104), /* ABORT */ }; keysort(ARG(1), nargs - 1, 1, keylist, supl_flags, FALSE); if(NOT(supl_flags[0])) { LOAD_NIL(ARG(1)); } close2(ARG(0)); }
void Fnsubst_if(CL_FORM *base, int nargs) { BOOL supl_flags[1]; static CL_FORM * keylist[] = { SYMBOL(Slisp, 209), /* KEY */ }; keysort(ARG(3), nargs - 3, 1, keylist, supl_flags, FALSE); if(NOT(supl_flags[0])) { LOAD_NIL(ARG(3)); } nsubst_if1(ARG(0)); }
void Fmismatch(CL_FORM *base, int nargs) { BOOL supl_flags[8]; static CL_FORM * keylist[] = { SYMBOL(Slisp, 294), /* FROM-END */ SYMBOL(Slisp, 282), /* TEST */ SYMBOL(Slisp, 550), /* TEST-NOT */ SYMBOL(Slisp, 209), /* KEY */ SYMBOL(Slisp, 302), /* START1 */ SYMBOL(Slisp, 280), /* START2 */ SYMBOL(Slisp, 303), /* END1 */ SYMBOL(Slisp, 281), /* END2 */ }; keysort(ARG(2), nargs - 2, 8, keylist, supl_flags, FALSE); if(NOT(supl_flags[0])) { LOAD_NIL(ARG(2)); } if(NOT(supl_flags[1])) { LOAD_NIL(ARG(3)); } if(NOT(supl_flags[2])) { LOAD_NIL(ARG(4)); } if(NOT(supl_flags[3])) { LOAD_GLOBFUN(&CFidentity, ARG(5)); } if(NOT(supl_flags[4])) { LOAD_FIXNUM(ARG(10), 0, ARG(6)); } if(NOT(supl_flags[5])) { LOAD_FIXNUM(ARG(10), 0, ARG(7)); } if(NOT(supl_flags[6])) { LOAD_NIL(ARG(8)); } if(NOT(supl_flags[7])) { LOAD_NIL(ARG(9)); } mismatch1(ARG(0)); }
void vector_remove(CL_FORM *base, int nargs) { BOOL supl_flags[7]; static CL_FORM * keylist[] = { SYMBOL(Slisp, 294), /* FROM-END */ SYMBOL(Slisp, 282), /* TEST */ SYMBOL(Slisp, 550), /* TEST-NOT */ SYMBOL(Slisp, 231), /* START */ SYMBOL(Slisp, 232), /* END */ SYMBOL(Slisp, 392), /* COUNT */ SYMBOL(Slisp, 209), /* KEY */ }; keysort(ARG(2), nargs - 2, 7, keylist, supl_flags, FALSE); if(NOT(supl_flags[0])) { LOAD_NIL(ARG(2)); } if(NOT(supl_flags[1])) { LOAD_NIL(ARG(3)); } if(NOT(supl_flags[2])) { LOAD_NIL(ARG(4)); } if(NOT(supl_flags[3])) { LOAD_FIXNUM(ARG(9), 0, ARG(5)); } if(NOT(supl_flags[4])) { LOAD_NIL(ARG(6)); } if(NOT(supl_flags[5])) { LOAD_NIL(ARG(7)); } if(NOT(supl_flags[6])) { LOAD_GLOBFUN(&CFidentity, ARG(8)); } vector_remove1(ARG(0)); }
void Ffill(CL_FORM *base, int nargs) { BOOL supl_flags[2]; static CL_FORM * keylist[] = { SYMBOL(Slisp, 231), /* START */ SYMBOL(Slisp, 232), /* END */ }; keysort(ARG(2), nargs - 2, 2, keylist, supl_flags, FALSE); if(NOT(supl_flags[0])) { LOAD_FIXNUM(ARG(4), 0, ARG(2)); } if(NOT(supl_flags[1])) { LOAD_NIL(ARG(3)); } fill1(ARG(0)); }
void Fnstring_capitalize(CL_FORM *base, int nargs) { BOOL supl_flags[2]; static CL_FORM * keylist[] = { SYMBOL(Slisp, 229), /* START */ SYMBOL(Slisp, 230), /* END */ }; keysort(ARG(1), nargs - 1, 2, keylist, supl_flags, FALSE); if(NOT(supl_flags[0])) { LOAD_SMALLFIXNUM(0, ARG(1)); } if(NOT(supl_flags[1])) { LOAD_NIL(ARG(2)); } nstring_capitalize1(ARG(0)); }
void Ffind(CL_FORM *base, int nargs) { BOOL supl_flags[6]; static CL_FORM * keylist[] = { SYMBOL(Slisp, 284), /* FROM-END */ SYMBOL(Slisp, 272), /* TEST */ SYMBOL(Slisp, 553), /* TEST-NOT */ SYMBOL(Slisp, 229), /* START */ SYMBOL(Slisp, 230), /* END */ SYMBOL(Slisp, 207), /* KEY */ }; keysort(ARG(2), nargs - 2, 6, keylist, supl_flags, FALSE); if(NOT(supl_flags[0])) { LOAD_NIL(ARG(2)); } if(NOT(supl_flags[1])) { LOAD_NIL(ARG(3)); } if(NOT(supl_flags[2])) { LOAD_NIL(ARG(4)); } if(NOT(supl_flags[3])) { LOAD_SMALLFIXNUM(0, ARG(5)); } if(NOT(supl_flags[4])) { COPY(SYMVAL(Slisp, 0), ARG(6)); /* MOST-POSITIVE-FIXNUM */ } if(NOT(supl_flags[5])) { LOAD_NIL(ARG(7)); } find1(ARG(0)); }
void Fin_package(CL_FORM *base, int nargs) { BOOL supl_flags[2]; static CL_FORM * keylist[] = { SYMBOL(Slisp, 383), /* NICKNAMES */ SYMBOL(Slisp, 391), /* USE */ }; keysort(ARG(1), nargs - 1, 2, keylist, supl_flags, FALSE); if(NOT(supl_flags[0])) { LOAD_NIL(ARG(1)); } if(NOT(supl_flags[1])) { LOAD_NIL(ARG(2)); LOAD_NIL(ARG(3)); } else { LOAD_T(ARG(3)); } in_package1(ARG(0)); }
void Fsubst(CL_FORM *base, int nargs) { BOOL supl_flags[3]; static CL_FORM * keylist[] = { SYMBOL(Slisp, 282), /* TEST */ SYMBOL(Slisp, 550), /* TEST-NOT */ SYMBOL(Slisp, 209), /* KEY */ }; keysort(ARG(3), nargs - 3, 3, keylist, supl_flags, FALSE); if(NOT(supl_flags[0])) { LOAD_NIL(ARG(3)); } if(NOT(supl_flags[1])) { LOAD_NIL(ARG(4)); } if(NOT(supl_flags[2])) { LOAD_NIL(ARG(5)); } subst1(ARG(0)); }
void Fpathname_host(CL_FORM *base, int nargs) { BOOL supl_flags[1]; static CL_FORM * keylist[] = { SYMBOL(Slisp, 208), /* CASE */ }; keysort(STACK(base, 1), nargs - 1, 1, keylist, supl_flags, FALSE); if(NOT(supl_flags[0])) { LOAD_SYMBOL(SYMBOL(Slisp, 207), STACK(base, 1)); /* LOCAL */ } COPY(STACK(base, 0), STACK(base, 2)); COPY(STACK(base, 0), STACK(base, 3)); LOAD_SYMBOL(SYMBOL(Slisp, 164), STACK(base, 4)); /* PATHNAME */ struct_typep(STACK(base, 3)); if(CL_TRUEP(STACK(base, 3))) { COPY(STACK(base, 0), STACK(base, 2)); } else { if(CL_ARRAY_P(STACK(base, 0))) { COPY(STACK(base, 0), STACK(base, 3)); LOAD_SYMBOL(SYMBOL(Slisp, 43), STACK(base, 4)); /* STANDARD-CHAR */ LOAD_SYMBOL(SYMBOL(Slisp, 48), STACK(base, 5)); /* * */ check_array_internal(STACK(base, 3)); bool_result = CL_TRUEP(STACK(base, 3)); } else { bool_result = FALSE; } if(bool_result) { COPY(STACK(base, 0), STACK(base, 2)); Fparse_namestring(STACK(base, 2), 1); mv_count = 1; } else { COPY(STACK(base, 0), STACK(base, 3)); LOAD_SYMBOL(SYMBOL(Slisp, 63), STACK(base, 4)); /* STREAM */ struct_typep(STACK(base, 3)); if(CL_TRUEP(STACK(base, 3))) { COPY(STACK(base, 0), STACK(base, 2)); file_name(STACK(base, 2), 1); Fparse_namestring(STACK(base, 2), 1); mv_count = 1; } else { LOAD_SMSTR((CL_FORM *)&KFpathname_host[0], STACK(base, 2)); /* etypecase: the value ~a is not a legal value */ COPY(STACK(base, 0), STACK(base, 3)); Ferror(STACK(base, 2), 2); } } } COPY(STACK(base, 2), STACK(base, 0)); LOAD_FIXNUM(0, STACK(base, 1)); LOAD_SYMBOL(SYMBOL(Slisp, 164), STACK(base, 2)); /* PATHNAME */ struct_ref(STACK(base, 0)); }
void Fmake_pathname(CL_FORM *base, int nargs) { BOOL supl_flags[8]; static CL_FORM * keylist[] = { SYMBOL(Slisp, 251), /* HOST */ SYMBOL(Slisp, 252), /* DEVICE */ SYMBOL(Slisp, 253), /* DIRECTORY */ SYMBOL(Slisp, 254), /* NAME */ SYMBOL(Slisp, 80), /* TYPE */ SYMBOL(Slisp, 255), /* VERSION */ SYMBOL(Slisp, 275), /* DEFAULTS */ SYMBOL(Slisp, 277), /* CASE */ }; keysort(ARG(0), nargs - 0, 8, keylist, supl_flags, FALSE); if(NOT(supl_flags[0])) { LOAD_NIL(ARG(0)); LOAD_NIL(ARG(8)); } else { LOAD_T(ARG(8)); } if(NOT(supl_flags[1])) { LOAD_NIL(ARG(1)); LOAD_NIL(ARG(9)); } else { LOAD_T(ARG(9)); } if(NOT(supl_flags[2])) { LOAD_NIL(ARG(2)); LOAD_NIL(ARG(10)); } else { LOAD_T(ARG(10)); } if(NOT(supl_flags[3])) { LOAD_NIL(ARG(3)); LOAD_NIL(ARG(11)); } else { LOAD_T(ARG(11)); } if(NOT(supl_flags[4])) { LOAD_NIL(ARG(4)); LOAD_NIL(ARG(12)); } else { LOAD_T(ARG(12)); } if(NOT(supl_flags[5])) { LOAD_NIL(ARG(5)); LOAD_NIL(ARG(13)); } else { LOAD_T(ARG(13)); } if(NOT(supl_flags[6])) { LOAD_NIL(ARG(6)); } if(NOT(supl_flags[7])) { LOAD_SYMBOL(SYMBOL(Slisp, 276), ARG(7)); /* LOCAL */ } make_pathname1(ARG(0)); }
void Fwrite(CL_FORM *base, int nargs) { BOOL supl_flags[11]; static CL_FORM * keylist[] = { SYMBOL(Slisp, 491), /* STREAM */ SYMBOL(Slisp, 492), /* ESCAPE */ SYMBOL(Slisp, 467), /* RADIX */ SYMBOL(Slisp, 493), /* BASE */ SYMBOL(Slisp, 494), /* CIRCLE */ SYMBOL(Slisp, 495), /* PRETTY */ SYMBOL(Slisp, 496), /* LEVEL */ SYMBOL(Slisp, 88), /* LENGTH */ SYMBOL(Slisp, 268), /* CASE */ SYMBOL(Slisp, 497), /* GENSYM */ SYMBOL(Slisp, 400), /* ARRAY */ }; keysort(ARG(1), nargs - 1, 11, keylist, supl_flags, FALSE); if(NOT(supl_flags[0])) { COPY(SYMVAL(Slisp, 61), ARG(1)); /* *STANDARD-OUTPUT* */ } if(NOT(supl_flags[1])) { COPY(SYMVAL(Slisp, 472), ARG(2)); /* *PRINT-ESCAPE* */ } if(NOT(supl_flags[2])) { COPY(SYMVAL(Slisp, 477), ARG(3)); /* *PRINT-RADIX* */ } if(NOT(supl_flags[3])) { COPY(SYMVAL(Slisp, 469), ARG(4)); /* *PRINT-BASE* */ } if(NOT(supl_flags[4])) { COPY(SYMVAL(Slisp, 471), ARG(5)); /* *PRINT-CIRCLE* */ } if(NOT(supl_flags[5])) { COPY(SYMVAL(Slisp, 476), ARG(6)); /* *PRINT-PRETTY* */ } if(NOT(supl_flags[6])) { COPY(SYMVAL(Slisp, 475), ARG(7)); /* *PRINT-LEVEL* */ } if(NOT(supl_flags[7])) { COPY(SYMVAL(Slisp, 474), ARG(8)); /* *PRINT-LENGTH* */ } if(NOT(supl_flags[8])) { COPY(SYMVAL(Slisp, 470), ARG(9)); /* *PRINT-CASE* */ } if(NOT(supl_flags[9])) { COPY(SYMVAL(Slisp, 473), ARG(10)); /* *PRINT-GENSYM* */ } if(NOT(supl_flags[10])) { COPY(SYMVAL(Slisp, 468), ARG(11)); /* *PRINT-ARRAY* */ } write1(ARG(0)); }