static void Z114_lambda(CL_FORM *base) { if(CL_SMSTRP(ARG(0))) { if(CL_SMSTRP(ARG(1))) { LOAD_FIXNUM(ARG(2), 0, ARG(2)); LOAD_NIL(ARG(3)); LOAD_FIXNUM(ARG(4), 0, ARG(4)); LOAD_NIL(ARG(5)); stringE1(ARG(0)); } else { LOAD_NIL(ARG(0)); } } else { if(CL_CONSP(ARG(0))) { if(CL_CONSP(ARG(1))) { COPY(GET_CAR(ARG(0)), ARG(2)); COPY(GET_CAR(ARG(1)), ARG(3)); if(EQ(ARG(2), ARG(3))) { COPY(GET_CDR(ARG(0)), ARG(2)); COPY(GET_CDR(ARG(1)), ARG(3)); COPY(ARG(2), ARG(0)); COPY(ARG(3), ARG(1)); LOAD_FIXNUM(ARG(2), 0, ARG(2)); LOAD_NIL(ARG(3)); LOAD_FIXNUM(ARG(4), 0, ARG(4)); LOAD_NIL(ARG(5)); stringE1(ARG(0)); } else { LOAD_NIL(ARG(0)); } } else { LOAD_NIL(ARG(0)); } } else { LOAD_BOOL(EQ(ARG(0), ARG(1)), ARG(0)); } } }
static void Z124_lambda(CL_FORM *base) { if(CL_SMSTRP(ARG(1))) { COPY(INDIRECT(GET_FORM(ARG(0)) + 4), ARG(2)); COPY(INDIRECT(GET_FORM(ARG(0)) + 3), ARG(3)); Ffuncall(ARG(2), 2); COPY(ARG(2), ARG(0)); } else { if(CL_CONSP(ARG(1))) { COPY(GET_CAR(ARG(1)), ARG(2)); if(CL_SYMBOLP(ARG(2)) && GET_SYMBOL(ARG(2)) == SYMBOL(Slisp, 255)) /* CHARACTER-SET */ { LOAD_SYMBOL(SYMBOL(Slisp, 255), ARG(3)); /* CHARACTER-SET */ COPY(INDIRECT(GET_FORM(ARG(0)) + 4), ARG(4)); COPY(GET_CDR(ARG(1)), ARG(5)); Ffuncall(ARG(4), 2); mv_count = 1; ALLOC_CONS(ARG(5), ARG(3), ARG(4), ARG(0)); } else { COPY(ARG(1), ARG(0)); } } else { COPY(ARG(1), ARG(0)); } } }
void Fschar(CL_FORM *base) { if(CL_SMSTRP(ARG(0))) { } else { COPY(SYMVAL(Slisp, 58), ARG(2)); /* WRONG_TYPE */ COPY(ARG(0), ARG(3)); LOAD_SYMBOL(SYMBOL(Slisp, 40), ARG(4)); /* SIMPLE-STRING */ Ferror(ARG(2), 3); } pvref(ARG(0)); }
static void Z123_diddle_with(CL_FORM *base) { GEN_HEAPVAR(ARG(0), ARG(2)); GEN_HEAPVAR(ARG(1), ARG(2)); COPY(INDIRECT(ARG(1)), ARG(2)); LOAD_SYMBOL(SYMBOL(Slisp, 248), ARG(3)); /* PATTERN */ rt_struct_typep(ARG(2)); if(CL_TRUEP(ARG(2))) { GEN_CLOSURE(array, ARG(2), 5, Z124_lambda, 1); COPY(ARG(1), &array[3]); COPY(ARG(0), &array[4]); LOAD_CLOSURE(array, ARG(2)); COPY(ARG(2), ARG(2)); COPY(INDIRECT(ARG(1)), ARG(3)); pattern_pieces(ARG(3)); Fmapcar(ARG(2), 2); LOAD_SYMBOL(SYMBOL(Slisp, 248), ARG(0)); /* PATTERN */ COPY(ARG(2), ARG(1)); rt_make_struct(ARG(0), 2); } else { if(CL_LISTP(INDIRECT(ARG(1)))) { COPY(INDIRECT(ARG(0)), ARG(0)); COPY(INDIRECT(ARG(1)), ARG(1)); Fmapcar(ARG(0), 2); } else { if(CL_SMSTRP(INDIRECT(ARG(1)))) { COPY(INDIRECT(ARG(0)), ARG(0)); COPY(INDIRECT(ARG(1)), ARG(1)); Ffuncall(ARG(0), 2); } else { LOAD_SMSTR((CL_FORM *)&Kmaybe_diddle_case[2], ARG(0)); /* etypecase: the value ~a is not a legal value */ COPY(INDIRECT(ARG(1)), ARG(1)); Ferror(ARG(0), 2); } } } }
void string_to_simple_string(CL_FORM *base) { if(CL_SMSTRP(ARG(0))) { } else { COPY(ARG(0), ARG(1)); Fstringp(ARG(1)); if(CL_TRUEP(ARG(1))) { COPY(ARG(0), ARG(1)); complex_vector_displaced(ARG(1)); Fminusp(ARG(1)); if(CL_TRUEP(ARG(1))) { COPY(ARG(0), ARG(1)); complex_vector_fillptr(ARG(1)); Fminusp(ARG(1)); } else { goto ELSE1; } if(CL_TRUEP(ARG(1))) { complex_vector_data(ARG(0)); } else { ELSE1:; LOAD_FIXNUM(ARG(1), 0, ARG(1)); LOAD_NIL(ARG(2)); subseq1(ARG(0)); } } else { COPY(SYMVAL(Slisp, 58), ARG(1)); /* WRONG_TYPE */ COPY(ARG(0), ARG(2)); LOAD_SYMBOL(SYMBOL(Slisp, 44), ARG(3)); /* STRING */ Ferror(ARG(1), 3); } } }
static void Z122_check_for(CL_FORM *base) { COPY(ARG(1), ARG(2)); LOAD_SYMBOL(SYMBOL(Slisp, 248), ARG(3)); /* PATTERN */ rt_struct_typep(ARG(2)); if(CL_TRUEP(ARG(2))) { LOAD_NIL(ARG(2)); COPY(ARG(1), ARG(3)); pattern_pieces(ARG(3)); M1_1:; if(CL_ATOMP(ARG(3))) { LOAD_NIL(ARG(2)); COPY(ARG(2), ARG(0)); goto RETURN1; } COPY(ARG(3), ARG(4)); COPY(GET_CAR(ARG(4)), ARG(2)); if(CL_SMSTRP(ARG(2))) { COPY(ARG(0), ARG(4)); COPY(ARG(2), ARG(5)); Z122_check_for(ARG(4)); bool_result = CL_TRUEP(ARG(4)); } else { if(CL_CONSP(ARG(2))) { if(CL_CONSP(ARG(1))) { COPY(GET_CAR(ARG(1)), ARG(4)); } else { if(CL_TRUEP(ARG(1))) { LOAD_SMSTR((CL_FORM *)&KClisp[239], ARG(4)); /* ~a is not a list */ COPY(ARG(1), ARG(5)); Ferror(ARG(4), 2); } else { COPY(ARG(1), ARG(4)); } } if(CL_SYMBOLP(ARG(4)) && GET_SYMBOL(ARG(4)) == SYMBOL(Slisp, 255)) /* CHARACTER-SET */ { COPY(ARG(0), ARG(5)); if(CL_CONSP(ARG(1))) { COPY(GET_CDR(ARG(1)), ARG(6)); } else { if(CL_TRUEP(ARG(1))) { LOAD_SMSTR((CL_FORM *)&KClisp[241], ARG(6)); /* ~a is not a list */ COPY(ARG(1), ARG(7)); Ferror(ARG(6), 2); } else { COPY(ARG(1), ARG(6)); } } Z122_check_for(ARG(5)); } else { goto ELSE1; } } else { goto ELSE1; } bool_result = CL_TRUEP(ARG(5)); } if(bool_result) { LOAD_SYMBOL(SYMBOL(Slisp, 48), ARG(0)); /* T */ goto RETURN1; } ELSE1:; COPY(ARG(3), ARG(4)); COPY(GET_CDR(ARG(4)), ARG(3)); goto M1_1; RETURN1:; } else { if(CL_LISTP(ARG(1))) { LOAD_NIL(ARG(2)); COPY(ARG(1), ARG(3)); M2_1:; if(CL_ATOMP(ARG(3))) { LOAD_NIL(ARG(2)); COPY(ARG(2), ARG(0)); goto RETURN2; } COPY(ARG(3), ARG(4)); COPY(GET_CAR(ARG(4)), ARG(2)); COPY(ARG(0), ARG(4)); COPY(ARG(2), ARG(5)); Z122_check_for(ARG(4)); if(CL_TRUEP(ARG(4))) { LOAD_SYMBOL(SYMBOL(Slisp, 48), ARG(0)); /* T */ goto RETURN2; } COPY(ARG(3), ARG(4)); COPY(GET_CDR(ARG(4)), ARG(3)); goto M2_1; RETURN2:; } else { if(CL_SMSTRP(ARG(1))) { COPY(ARG(1), ARG(2)); Flength(ARG(2)); LOAD_SMALLFIXNUM(0, ARG(3)); M3_1:; COPY(ARG(3), ARG(4)); COPY(ARG(2), ARG(5)); Fge(ARG(4), 2); if(CL_TRUEP(ARG(4))) { LOAD_NIL(ARG(0)); goto RETURN3; } COPY(ARG(0), ARG(4)); COPY(ARG(1), ARG(5)); COPY(ARG(3), ARG(6)); Fschar(ARG(5)); Ffuncall(ARG(4), 2); mv_count = 1; if(CL_TRUEP(ARG(4))) { LOAD_SYMBOL(SYMBOL(Slisp, 48), ARG(0)); /* T */ goto RETURN3; } F1plus(ARG(3)); goto M3_1; RETURN3:; } else { if(CL_SYMBOLP(ARG(1)) && GET_SYMBOL(ARG(1)) == SYMBOL(Slisp, 256)) /* UNSPECIFIC */ { LOAD_NIL(ARG(0)); } else { LOAD_SMSTR((CL_FORM *)&Kmaybe_diddle_case[0], ARG(0)); /* etypecase: the value ~a is not a legal value */ Ferror(ARG(0), 2); } } } } }
void Penumerate_directories(CL_FORM *base) { M1_1:; if(CL_TRUEP(ARG(1))) { if(CL_CONSP(ARG(1))) { COPY(GET_CAR(ARG(1)), ARG(5)); } else { LOAD_SMSTR((CL_FORM *)&KClisp[239], ARG(5)); /* ~a is not a list */ COPY(ARG(1), ARG(6)); Ferror(ARG(5), 2); } if(CL_SMSTRP(ARG(5))) { LOAD_SYMBOL(SYMBOL(Slisp, 44), ARG(6)); /* STRING */ COPY(ARG(0), ARG(7)); COPY(ARG(5), ARG(8)); LOAD_SMSTR((CL_FORM *)&KPenumerate_directories[0], ARG(9)); /* / */ Fconcatenate(ARG(6), 4); if(CL_CONSP(ARG(1))) { COPY(GET_CDR(ARG(1)), ARG(7)); } else { LOAD_SMSTR((CL_FORM *)&KClisp[241], ARG(7)); /* ~a is not a list */ COPY(ARG(1), ARG(8)); Ferror(ARG(7), 2); } COPY(ARG(6), ARG(0)); COPY(ARG(7), ARG(1)); LOAD_SYMBOL(SYMBOL(Slisp, 48), ARG(3)); /* T */ goto M1_1; } else { if(CL_SYMBOLP(ARG(5)) && GET_SYMBOL(ARG(5)) == SYMBOL(Slisp, 265)) /* UP */ { LOAD_SYMBOL(SYMBOL(Slisp, 44), ARG(6)); /* STRING */ COPY(ARG(0), ARG(7)); LOAD_SMSTR((CL_FORM *)&KPenumerate_directories[2], ARG(8)); /* ../ */ Fconcatenate(ARG(6), 3); if(CL_CONSP(ARG(1))) { COPY(GET_CDR(ARG(1)), ARG(7)); } else { LOAD_SMSTR((CL_FORM *)&KClisp[241], ARG(7)); /* ~a is not a list */ COPY(ARG(1), ARG(8)); Ferror(ARG(7), 2); } COPY(ARG(6), ARG(0)); COPY(ARG(7), ARG(1)); LOAD_SYMBOL(SYMBOL(Slisp, 48), ARG(3)); /* T */ goto M1_1; } else { LOAD_SMSTR((CL_FORM *)&KPenumerate_directories[4], ARG(0)); /* etypecase: the value ~a is not a legal value */ COPY(ARG(5), ARG(1)); Ferror(ARG(0), 2); } } } else { COPY(ARG(2), ARG(1)); LOAD_SYMBOL(SYMBOL(Slisp, 48), ARG(2)); /* T */ COPY(ARG(4), ARG(3)); Penumerate_files(ARG(0)); } goto RETURN1; RETURN1:; }
void quick_integer_to_string(CL_FORM *base) { COPY(ARG(0), ARG(1)); Fzerop(ARG(1)); if(CL_TRUEP(ARG(1))) { LOAD_SMSTR((CL_FORM *)&Kquick_integer_to_string[0], ARG(0)); /* 0 */ } else { if(CL_FIXNUMP(ARG(0)) && GET_FIXNUM(ARG(0)) == 1) { LOAD_SMSTR((CL_FORM *)&Kquick_integer_to_string[2], ARG(0)); /* 1 */ } else { COPY(ARG(0), ARG(1)); Fminusp(ARG(1)); if(CL_TRUEP(ARG(1))) { LOAD_SYMBOL(SYMBOL(Slisp, 40), ARG(1)); /* SIMPLE-STRING */ LOAD_SMSTR((CL_FORM *)&Kquick_integer_to_string[4], ARG(2)); /* - */ COPY(ARG(0), ARG(3)); Fminus(ARG(3), 1); quick_integer_to_string(ARG(3)); if(CL_SMSTRP(ARG(3))) { } else { LOAD_SMSTR((CL_FORM *)&KClisp[244], ARG(4)); /* type error: ~S is not of type ~S */ COPY(ARG(3), ARG(5)); LOAD_SYMBOL(SYMBOL(Slisp, 40), ARG(6)); /* SIMPLE-STRING */ Ferror(ARG(4), 3); } Fconcatenate(ARG(1), 3); COPY(ARG(1), ARG(0)); } else { COPY(ARG(0), ARG(1)); Finteger_length(ARG(1)); LOAD_FIXNUM(ARG(2), 3, ARG(2)); LOAD_FIXNUM(ARG(2), 3, ARG(2)); rt_truncate(ARG(1)); mv_count = 1; F1plus(ARG(1)); COPY(ARG(1), ARG(2)); LOAD_CHAR(ARG(3), ' ', ARG(3)); make_string1(ARG(2)); COPY(ARG(1), ARG(3)); F1minus(ARG(3)); COPY(ARG(0), ARG(4)); LOAD_FIXNUM(ARG(5), 0, ARG(5)); M1_1:; COPY(ARG(4), ARG(6)); Fzerop(ARG(6)); if(CL_TRUEP(ARG(6))) { F1plus(ARG(3)); COPY(ARG(2), ARG(6)); COPY(ARG(2), ARG(7)); LOAD_FIXNUM(ARG(8), 0, ARG(8)); LOAD_NIL(ARG(9)); COPY(ARG(3), ARG(10)); COPY(ARG(1), ARG(11)); replace1(ARG(6)); COPY(ARG(2), ARG(0)); COPY(ARG(3), ARG(2)); Fminus(ARG(1), 2); shrink_simple_string(ARG(0)); goto RETURN1; } LOAD_FIXNUM(ARG(6), 10, ARG(6)); COPY(ARG(4), ARG(6)); LOAD_FIXNUM(ARG(7), 10, ARG(7)); rt_truncate(ARG(6)); COPY(&mv_buf[0], ARG(7)); { int nargs; nargs = 2; mv_count = 1; { switch(nargs) { case 0: LOAD_NIL(ARG(6)); case 1: LOAD_NIL(ARG(7)); nargs = 2; } COPY(ARG(6), ARG(4)); COPY(ARG(7), ARG(5)); } } LOAD_SMSTR((CL_FORM *)&Kquick_integer_to_string[6], ARG(6)); /* 0123456789 */ COPY(ARG(5), ARG(7)); pvref(ARG(6)); COPY(ARG(6), ARG(7)); COPY(ARG(2), ARG(8)); COPY(ARG(3), ARG(9)); Fset_schar(ARG(7)); F1minus(ARG(3)); goto M1_1; RETURN1:; } } } }
void string_capitalize1(CL_FORM *base) { COPY(ARG(0), ARG(3)); Fstring(ARG(3)); COPY(ARG(3), ARG(0)); COPY(ARG(1), ARG(3)); COPY(ARG(2), ARG(4)); COPY(ARG(0), ARG(5)); Flength(ARG(5)); check_seq_start_end(ARG(3)); COPY(ARG(3), ARG(2)); COPY(ARG(0), ARG(3)); COPY(ARG(3), ARG(4)); COPY(ARG(4), ARG(5)); LOAD_FIXNUM(ARG(6), 0, ARG(6)); LOAD_NIL(ARG(7)); subseq1(ARG(5)); COPY(ARG(5), ARG(0)); COPY(ARG(1), ARG(3)); LOAD_NIL(ARG(4)); LOAD_NIL(ARG(5)); M1_1:; COPY(ARG(3), ARG(6)); COPY(ARG(2), ARG(7)); Fnumeql(ARG(6), 2); if(CL_TRUEP(ARG(6))) { goto RETURN1; } COPY(ARG(0), ARG(6)); COPY(ARG(3), ARG(7)); if(CL_SMSTRP(ARG(6))) { } else { COPY(SYMVAL(Slisp, 58), ARG(8)); /* WRONG_TYPE */ COPY(ARG(6), ARG(9)); LOAD_SYMBOL(SYMBOL(Slisp, 40), ARG(10)); /* SIMPLE-STRING */ Ferror(ARG(8), 3); } COPY(ARG(6), ARG(8)); COPY(ARG(7), ARG(9)); COPY(ARG(9), ARG(10)); LOAD_FIXNUM(ARG(12), AR_SIZE(GET_FORM(ARG(8))), ARG(11)); F1minus(ARG(11)); if(CL_FIXNUMP(ARG(10))) { LOAD_FIXNUM(ARG(12), 0, ARG(12)); COPY(ARG(10), ARG(13)); COPY(ARG(11), ARG(14)); Fle(ARG(12), 3); } else { goto ELSE1; } if(CL_TRUEP(ARG(12))) { } else { ELSE1:; COPY(SYMVAL(Slisp, 153), ARG(10)); /* OUT_OF_RANGE */ COPY(ARG(9), ARG(11)); LOAD_FIXNUM(ARG(13), AR_SIZE(GET_FORM(ARG(8))), ARG(12)); Ferror(ARG(10), 3); } COPY(ARG(8), ARG(5)); COPY(ARG(9), ARG(6)); rt_pvref(ARG(5)); if(CL_CHARP(ARG(5))) { COPY(ARG(5), ARG(6)); } else { COPY(SYMVAL(Slisp, 58), ARG(6)); /* WRONG_TYPE */ COPY(ARG(5), ARG(7)); LOAD_SYMBOL(SYMBOL(Slisp, 18), ARG(8)); /* CHARACTER */ Ferror(ARG(6), 3); } rt_alpha_char_p(ARG(6)); if(CL_TRUEP(ARG(6))) { goto THEN2; } else { COPY(ARG(5), ARG(7)); LOAD_FIXNUM(ARG(8), 10, ARG(8)); digit_char_p1(ARG(7)); } if(CL_TRUEP(ARG(7))) { THEN2:; if(CL_TRUEP(ARG(4))) { if(CL_CHARP(ARG(5))) { COPY(ARG(5), ARG(6)); } else { COPY(SYMVAL(Slisp, 58), ARG(6)); /* WRONG_TYPE */ COPY(ARG(5), ARG(7)); LOAD_SYMBOL(SYMBOL(Slisp, 18), ARG(8)); /* CHARACTER */ Ferror(ARG(6), 3); } rt_char_downcase(ARG(6)); } else { LOAD_SYMBOL(SYMBOL(Slisp, 48), ARG(4)); /* T */ if(CL_CHARP(ARG(5))) { COPY(ARG(5), ARG(6)); } else { COPY(SYMVAL(Slisp, 58), ARG(6)); /* WRONG_TYPE */ COPY(ARG(5), ARG(7)); LOAD_SYMBOL(SYMBOL(Slisp, 18), ARG(8)); /* CHARACTER */ Ferror(ARG(6), 3); } rt_char_upcase(ARG(6)); } } else { LOAD_NIL(ARG(4)); COPY(ARG(5), ARG(6)); } COPY(ARG(6), ARG(7)); COPY(ARG(0), ARG(8)); COPY(ARG(3), ARG(9)); Fset_schar(ARG(7)); F1plus(ARG(3)); goto M1_1; RETURN1:; }
void Fcoerce(CL_FORM *base) { if(CL_SYMBOLP(ARG(1)) && GET_SYMBOL(ARG(1)) == SYMBOL(Slisp, 28)) /* LIST */ { if(CL_LISTP(ARG(0))) { } else { LOAD_SYMBOL(SYMBOL(Slisp, 28), ARG(2)); /* LIST */ COPY(ARG(0), ARG(3)); Fconcatenate(ARG(2), 2); COPY(ARG(2), ARG(0)); } } else { if(CL_SYMBOLP(ARG(1)) && GET_SYMBOL(ARG(1)) == SYMBOL(Slisp, 40)) /* SIMPLE-STRING */ { if(CL_SMSTRP(ARG(0))) { } else { LOAD_SYMBOL(SYMBOL(Slisp, 40), ARG(2)); /* SIMPLE-STRING */ COPY(ARG(0), ARG(3)); Fconcatenate(ARG(2), 2); COPY(ARG(2), ARG(0)); } } else { if(CL_SYMBOLP(ARG(1)) && GET_SYMBOL(ARG(1)) == SYMBOL(Slisp, 44)) /* STRING */ { COPY(ARG(0), ARG(2)); Fstringp(ARG(2)); if(CL_TRUEP(ARG(2))) { } else { LOAD_SYMBOL(SYMBOL(Slisp, 44), ARG(2)); /* STRING */ COPY(ARG(0), ARG(3)); Fconcatenate(ARG(2), 2); COPY(ARG(2), ARG(0)); } } else { if(CL_SYMBOLP(ARG(1)) && GET_SYMBOL(ARG(1)) == SYMBOL(Slisp, 41)) /* SIMPLE-VECTOR */ { if(CL_SMVEC_T_P(ARG(0))) { } else { LOAD_SYMBOL(SYMBOL(Slisp, 41), ARG(2)); /* SIMPLE-VECTOR */ COPY(ARG(0), ARG(3)); Fconcatenate(ARG(2), 2); COPY(ARG(2), ARG(0)); } } else { if(CL_SYMBOLP(ARG(1)) && GET_SYMBOL(ARG(1)) == SYMBOL(Slisp, 47)) /* VECTOR */ { LOAD_BOOL(CL_SMVECP(ARG(0)), ARG(2)); if(CL_TRUEP(ARG(2))) { goto THEN1; } else { COPY(ARG(0), ARG(3)); LOAD_SYMBOL(SYMBOL(Slisp, 150), ARG(4)); /* COMPLEX-VECTOR */ rt_struct_typep(ARG(3)); } if(CL_TRUEP(ARG(3))) { THEN1:; } else { LOAD_SYMBOL(SYMBOL(Slisp, 47), ARG(2)); /* VECTOR */ COPY(ARG(0), ARG(3)); Fconcatenate(ARG(2), 2); COPY(ARG(2), ARG(0)); } } else { if(CL_SYMBOLP(ARG(1)) && GET_SYMBOL(ARG(1)) == SYMBOL(Slisp, 18)) /* CHARACTER */ { Fcharacter(ARG(0)); } else { LOAD_BOOL(CL_SYMBOLP(ARG(1)) && GET_SYMBOL(ARG(1)) == SYMBOL(Slisp, 24), ARG(2)); /* FLOAT */ if(CL_TRUEP(ARG(2))) { goto THEN2; } else { LOAD_BOOL(CL_SYMBOLP(ARG(1)) && GET_SYMBOL(ARG(1)) == SYMBOL(Slisp, 37), ARG(3)); /* SHORT-FLOAT */ if(CL_TRUEP(ARG(3))) { goto THEN2; } else { LOAD_BOOL(CL_SYMBOLP(ARG(1)) && GET_SYMBOL(ARG(1)) == SYMBOL(Slisp, 42), ARG(4)); /* SINGLE-FLOAT */ if(CL_TRUEP(ARG(4))) { goto THEN2; } else { LOAD_BOOL(CL_SYMBOLP(ARG(1)) && GET_SYMBOL(ARG(1)) == SYMBOL(Slisp, 22), ARG(5)); /* DOUBLE-FLOAT */ if(CL_TRUEP(ARG(5))) { goto THEN2; } else { } /* LONG-FLOAT */ } } } if(CL_SYMBOLP(ARG(1)) && GET_SYMBOL(ARG(1)) == SYMBOL(Slisp, 29)) { THEN2:; LOAD_NIL(ARG(1)); float1(ARG(0)); } else { if(CL_SYMBOLP(ARG(1)) && GET_SYMBOL(ARG(1)) == SYMBOL(Slisp, 48)) /* T */ { } else { LOAD_SMSTR((CL_FORM *)&KClisp[112], ARG(0)); /* cannot coerce to ~S */ Ferror(ARG(0), 2); } } } } } } } } }
void Fsimple_string_p(CL_FORM *base) { LOAD_BOOL(CL_SMSTRP(ARG(0)), ARG(0)); }