void pvref(CL_FORM *base)
{
if(CL_FIXNUMP(ARG(1)))
{
LOAD_FIXNUM(ARG(2), 0, ARG(2));
COPY(ARG(1), ARG(3));
LOAD_FIXNUM(ARG(5), AR_SIZE(GET_FORM(ARG(0))), ARG(4));
F1minus(ARG(4));
Fle(ARG(2), 3);
}
else
{
goto ELSE1;
}
if(CL_TRUEP(ARG(2)))
{
}
else
{
ELSE1:;
COPY(SYMVAL(Slisp, 153), ARG(2)); /* OUT_OF_RANGE */
COPY(ARG(1), ARG(3));
LOAD_FIXNUM(ARG(5), AR_SIZE(GET_FORM(ARG(0))), ARG(4));
Ferror(ARG(2), 3);
}
rt_pvref(ARG(0));
}
void Fscale_float(CL_FORM *base)
{
if(CL_FLOATP(ARG(0)))
{
COPY(ARG(0), ARG(2));
}
else
{
LOAD_SMSTR((CL_FORM *)&KClisp[244], ARG(2)); /* type error: ~S is not of type ~S */
COPY(ARG(0), ARG(3));
LOAD_SYMBOL(SYMBOL(Slisp, 24), ARG(4)); /* FLOAT */
Ferror(ARG(2), 3);
}
COPY(SYMVAL(Slisp, 324), ARG(3)); /* FLOAT-RADIX */
COPY(ARG(0), ARG(4));
float1(ARG(3));
if(CL_FIXNUMP(ARG(1)))
{
COPY(ARG(1), ARG(4));
}
else
{
LOAD_SMSTR((CL_FORM *)&KClisp[244], ARG(4)); /* type error: ~S is not of type ~S */
COPY(ARG(1), ARG(5));
LOAD_SYMBOL(SYMBOL(Slisp, 26), ARG(6)); /* INTEGER */
Ferror(ARG(4), 3);
}
Fexpt(ARG(3));
Fmult(ARG(2), 2);
COPY(ARG(2), ARG(0));
}
void radix_reader(CL_FORM *base)
{
if(CL_TRUEP(SYMVAL(Slisp, 418))) /* *READ-SUPPRESS* */
{
COPY(ARG(0), ARG(3));
LOAD_SYMBOL(SYMBOL(Slisp, 48), ARG(4)); /* T */
LOAD_NIL(ARG(5));
LOAD_SYMBOL(SYMBOL(Slisp, 48), ARG(6)); /* T */
read_char1(ARG(3));
COPY(ARG(0), ARG(4));
COPY(ARG(3), ARG(5));
read_token(ARG(4));
LOAD_NIL(ARG(0));
}
else
{
if(CL_TRUEP(ARG(2)))
{
LOAD_FIXNUM(ARG(3), 2, ARG(3));
COPY(ARG(2), ARG(4));
LOAD_FIXNUM(ARG(5), 36, ARG(5));
Fle(ARG(3), 3);
if(CL_TRUEP(ARG(3)))
{
COPY(ARG(2), ARG(3));
BIND_SPECIAL(SYMBOL(Slisp, 417), ARG(3)); /* *READ-BASE* */
COPY(ARG(0), ARG(3));
LOAD_SYMBOL(SYMBOL(Slisp, 48), ARG(4)); /* T */
LOAD_NIL(ARG(5));
LOAD_SYMBOL(SYMBOL(Slisp, 48), ARG(6)); /* T */
read1(ARG(3));
RESTORE_SPECIAL;
if(CL_FIXNUMP(ARG(3)))
{
}
else
{
LOAD_SMSTR((CL_FORM *)&Kradix_reader[0], ARG(4)); /* #~A (base ~D) value is not a rational: ~S. */
COPY(ARG(1), ARG(5));
COPY(ARG(2), ARG(6));
COPY(ARG(3), ARG(7));
Ferror(ARG(4), 4);
}
COPY(ARG(3), ARG(0));
}
else
{
LOAD_SMSTR((CL_FORM *)&Kradix_reader[2], ARG(0)); /* Illegal radix for #R: ~D. */
COPY(ARG(2), ARG(1));
Ferror(ARG(0), 2);
}
}
else
{
LOAD_SMSTR((CL_FORM *)&Kradix_reader[4], ARG(0)); /* Radix missing in #R. */
Ferror(ARG(0), 1);
}
}
}
void Flogeqv(CL_FORM *base, int nargs)
{
Flist(ARG(0), nargs - 0);
LOAD_FIXNUM(ARG(1), -1, ARG(1));
M1_1:;
if(CL_TRUEP(ARG(0)))
{
}
else
{
COPY(ARG(1), ARG(0));
goto RETURN1;
}
COPY(ARG(0), ARG(3));
COPY(ARG(3), ARG(4));
if(CL_CONSP(ARG(4)))
{
COPY(GET_CAR(ARG(4)), ARG(3));
}
else
{
LOAD_SMSTR((CL_FORM *)&KClisp[264], ARG(3)); /* ~a is not a list */
Ferror(ARG(3), 2);
}
COPY(ARG(0), ARG(4));
COPY(ARG(4), ARG(5));
if(CL_CONSP(ARG(5)))
{
COPY(GET_CDR(ARG(5)), ARG(0));
}
else
{
LOAD_SMSTR((CL_FORM *)&KClisp[262], ARG(6)); /* ~a is not a list */
COPY(ARG(5), ARG(7));
Ferror(ARG(6), 2);
}
if(CL_FIXNUMP(ARG(3)))
{
}
else
{
COPY(ARG(3), ARG(4));
LOAD_SMSTR((CL_FORM *)&KClisp[244], ARG(3)); /* type error: ~S is not of type ~S */
LOAD_SYMBOL(SYMBOL(Slisp, 23), ARG(5)); /* FIXNUM */
Ferror(ARG(3), 3);
}
LOAD_FIXNUM(ARG(4), GET_FIXNUM(ARG(1)) ^ GET_FIXNUM(ARG(3)), ARG(2));
LOAD_FIXNUM(ARG(3), ~ GET_FIXNUM(ARG(2)), ARG(1));
goto M1_1;
RETURN1:;
}
void set_pvref(CL_FORM *base)
{
if(CL_FIXNUMP(ARG(2)))
{
LOAD_FIXNUM(ARG(3), 0, ARG(3));
COPY(ARG(2), ARG(4));
LOAD_FIXNUM(ARG(6), AR_SIZE(GET_FORM(ARG(1))), ARG(5));
F1minus(ARG(5));
Fle(ARG(3), 3);
}
else
{
goto ELSE1;
}
if(CL_TRUEP(ARG(3)))
{
}
else
{
ELSE1:;
COPY(SYMVAL(Slisp, 153), ARG(3)); /* OUT_OF_RANGE */
COPY(ARG(2), ARG(4));
LOAD_FIXNUM(ARG(6), AR_SIZE(GET_FORM(ARG(1))), ARG(5));
Ferror(ARG(3), 3);
}
COPY(ARG(0), ARG(3));
COPY(ARG(1), ARG(4));
rt_plain_vector_element_code(ARG(4));
type_code_p(ARG(3));
if(CL_TRUEP(ARG(3)))
{
}
else
{
LOAD_SMSTR((CL_FORM *)&Kset_pvref[0], ARG(3)); /* Can't store ~A in a vector of type ~A */
COPY(ARG(0), ARG(4));
COPY(ARG(1), ARG(5));
rt_plain_vector_element_code(ARG(5));
Ferror(ARG(3), 3);
}
rt_set_pvref(ARG(0));
}
void fresh_line1(CL_FORM *base)
{
if(CL_TRUEP(ARG(0)))
{
if(CL_SYMBOLP(ARG(0)) && GET_SYMBOL(ARG(0)) == SYMBOL(Slisp, 48)) /* T */
{
COPY(SYMVAL(Slisp, 59), ARG(0)); /* *TERMINAL-IO* */
}
}
else
{
COPY(SYMVAL(Slisp, 61), ARG(0)); /* *STANDARD-OUTPUT* */
}
COPY(ARG(0), ARG(1));
COPY(ARG(1), ARG(2));
COPY(ARG(2), ARG(3));
LOAD_SYMBOL(SYMBOL(Slisp, 64), ARG(4)); /* STREAM */
rt_struct_typep(ARG(3));
if(CL_TRUEP(ARG(3)))
{
COPY(OFFSET(AR_BASE(GET_FORM(ARG(2))), 5 + 1), ARG(1));
}
else
{
COPY(SYMVAL(Slisp, 352), ARG(1)); /* NO_STRUCT */
LOAD_SYMBOL(SYMBOL(Slisp, 64), ARG(3)); /* STREAM */
Ferror(ARG(1), 3);
}
Ffuncall(ARG(1), 1);
mv_count = 1;
if(CL_FIXNUMP(ARG(1)) && GET_FIXNUM(ARG(1)) == 0)
{
LOAD_NIL(ARG(0));
}
else
{
LOAD_CHAR(ARG(1), '\n', ARG(1));
COPY(ARG(0), ARG(2));
write_char1(ARG(1));
COPY(ARG(1), ARG(0));
}
}
void FFI_c_unsigned_int(CL_FORM *base)
{
if(CL_FIXNUMP(ARG(0)))
{
rt_make_c_unsigned_int(ARG(0));
}
else
{
if(CL_C_UNSIGNED_INT_P(ARG(0)))
{
rt_cast_c_unsigned_int(ARG(0));
}
else
{
LOAD_SMSTR((CL_FORM *)&KClisp[38], ARG(1)); /* C-UNSIGNED-INT */
LOAD_SMSTR((CL_FORM *)&KClisp[36], ARG(2)); /* The evaluated value ~S is not of type fixnum. */
COPY(ARG(0), ARG(3));
error_in(ARG(1), 3);
}
}
}
void FFI_c_unsigned_long(CL_FORM *base)
{
if(CL_FIXNUMP(ARG(0)))
{
rt_make_c_unsigned_long(ARG(0));
}
else
{
COPY(ARG(0), ARG(1));
c_primitive_p(ARG(1));
if(CL_TRUEP(ARG(1)))
{
rt_cast_c_unsigned_long(ARG(0));
}
else
{
LOAD_SMSTR((CL_FORM *)&KClisp[20], ARG(1)); /* C-UNSIGNED-LONG */
COPY(SYMVAL(Slisp, 713), ARG(2)); /* NO-INTEGER */
COPY(ARG(0), ARG(3));
error_in(ARG(1), 3);
}
}
}
void Fsvref(CL_FORM *base)
{
if(CL_SMVEC_T_P(ARG(0)))
{
}
else
{
COPY(SYMVAL(Slisp, 58), ARG(2)); /* WRONG_TYPE */
COPY(ARG(0), ARG(3));
LOAD_SYMBOL(SYMBOL(Slisp, 41), ARG(4)); /* SIMPLE-VECTOR */
Ferror(ARG(2), 3);
}
if(CL_FIXNUMP(ARG(1)))
{
LOAD_FIXNUM(ARG(2), 0, ARG(2));
COPY(ARG(1), ARG(3));
LOAD_FIXNUM(ARG(5), AR_SIZE(GET_FORM(ARG(0))), ARG(4));
F1minus(ARG(4));
Fle(ARG(2), 3);
}
else
{
goto ELSE1;
}
if(CL_TRUEP(ARG(2)))
{
}
else
{
ELSE1:;
COPY(SYMVAL(Slisp, 153), ARG(2)); /* OUT_OF_RANGE */
COPY(ARG(1), ARG(3));
LOAD_FIXNUM(ARG(5), AR_SIZE(GET_FORM(ARG(0))), ARG(4));
Ferror(ARG(2), 3);
}
COPY(OFFSET(AR_BASE(GET_FORM(ARG(0))), GET_FIXNUM(ARG(1))), ARG(0));
}
void Ftypep(CL_FORM *base)
{
if(CL_SYMBOLP(ARG(1)) && GET_SYMBOL(ARG(1)) == SYMBOL(Slisp, 48)) /* T */
{
LOAD_SYMBOL(SYMBOL(Slisp, 48), ARG(0)); /* T */
}
else
{
if(CL_TRUEP(ARG(1)))
{
if(CL_SYMBOLP(ARG(1)) && GET_SYMBOL(ARG(1)) == SYMBOL(Slisp, 23)) /* FIXNUM */
{
if(CL_FIXNUMP(ARG(0)))
{
COPY(SYMVAL(Slisp, 1), ARG(2)); /* MOST-NEGATIVE-FIXNUM */
COPY(ARG(0), ARG(3));
COPY(SYMVAL(Slisp, 0), ARG(4)); /* MOST-POSITIVE-FIXNUM */
Fle(ARG(2), 3);
COPY(ARG(2), ARG(0));
}
else
{
LOAD_NIL(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 THEN1;
}
else
{
LOAD_BOOL(CL_SYMBOLP(ARG(1)) && GET_SYMBOL(ARG(1)) == SYMBOL(Slisp, 37), ARG(3)); /* SHORT-FLOAT */
if(CL_TRUEP(ARG(3)))
{
goto THEN1;
}
else
{
LOAD_BOOL(CL_SYMBOLP(ARG(1)) && GET_SYMBOL(ARG(1)) == SYMBOL(Slisp, 42), ARG(4)); /* SINGLE-FLOAT */
if(CL_TRUEP(ARG(4)))
{
goto THEN1;
}
else
{
LOAD_BOOL(CL_SYMBOLP(ARG(1)) && GET_SYMBOL(ARG(1)) == SYMBOL(Slisp, 22), ARG(5)); /* DOUBLE-FLOAT */
if(CL_TRUEP(ARG(5)))
{
goto THEN1;
}
else
{
} /* LONG-FLOAT */
}
}
}
if(CL_SYMBOLP(ARG(1)) && GET_SYMBOL(ARG(1)) == SYMBOL(Slisp, 29))
{
THEN1:;
LOAD_BOOL(CL_FLOATP(ARG(0)), ARG(0));
}
else
{
LOAD_BOOL(CL_SYMBOLP(ARG(1)) && GET_SYMBOL(ARG(1)) == SYMBOL(Slisp, 18), ARG(2)); /* CHARACTER */
if(CL_TRUEP(ARG(2)))
{
goto THEN2;
}
else
{
} /* STANDARD-CHAR */
if(CL_SYMBOLP(ARG(1)) && GET_SYMBOL(ARG(1)) == SYMBOL(Slisp, 43))
{
THEN2:;
LOAD_BOOL(CL_CHARP(ARG(0)), ARG(0));
}
else
{
if(CL_SYMBOLP(ARG(1)) && GET_SYMBOL(ARG(1)) == SYMBOL(Slisp, 28)) /* LIST */
{
LOAD_BOOL(CL_LISTP(ARG(0)), ARG(0));
}
else
{
if(CL_SYMBOLP(ARG(1)) && GET_SYMBOL(ARG(1)) == SYMBOL(Slisp, 31)) /* NULL */
{
if(CL_TRUEP(ARG(0)))
{
LOAD_NIL(ARG(0));
}
else
{
LOAD_SYMBOL(SYMBOL(Slisp, 48), ARG(0)); /* T */
}
}
else
{
if(CL_SYMBOLP(ARG(1)) && GET_SYMBOL(ARG(1)) == SYMBOL(Slisp, 21)) /* CONS */
{
LOAD_BOOL(CL_CONSP(ARG(0)), ARG(0));
}
else
{
LOAD_SMSTR((CL_FORM *)&KClisp[86], ARG(2)); /* (TYPEP ~S ~S) is not implemented */
COPY(ARG(0), ARG(3));
COPY(ARG(1), ARG(4));
Ferror(ARG(2), 3);
}
}
}
}
}
}
}
else
{
LOAD_NIL(ARG(0));
}
}
}
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 Farray_in_bounds_p(CL_FORM *base, int nargs)
{
CL_FORM *rest_0;
CL_FORM *local;
rest_0 = ARG(1);
local = ARG(nargs);
COPY(ARG(0), LOCAL(0));
Farray_rank(LOCAL(0));
REST_LENGTH(rest_0, LOCAL(1));
Fnumeql(LOCAL(0), 2);
if(CL_TRUEP(LOCAL(0)))
{
}
else
{
LOAD_SMSTR((CL_FORM *)&KClisp[188], LOCAL(0)); /* Wrong number of subscripts for array ~a */
COPY(ARG(0), LOCAL(1));
Ferror(LOCAL(0), 2);
}
{
LOAD_FIXNUM(LOCAL(0), 0, LOCAL(0));
{
CL_FORM *rest_1;
LOAD_NIL(LOCAL(1));
rest_1 = rest_0;
M1_1:;
if(NOT(REST_NOT_EMPTY(rest_1)))
{
LOAD_NIL(LOCAL(1));
LOAD_SYMBOL(SYMBOL(Slisp, 48), ARG(0)); /* T */
goto RETURN1;
}
{
CL_FORM *rest_2;
rest_2 = rest_1;
REST_CAR(rest_2, LOCAL(1));
}
if(CL_FIXNUMP(LOCAL(1)))
{
LOAD_FIXNUM(LOCAL(2), 0, LOCAL(2));
COPY(LOCAL(1), LOCAL(3));
COPY(ARG(0), LOCAL(4));
COPY(LOCAL(0), LOCAL(5));
Farray_dimension(LOCAL(4));
F1minus(LOCAL(4));
Fle(LOCAL(2), 3);
}
else
{
goto ELSE1;
}
if(CL_TRUEP(LOCAL(2)))
{
}
else
{
ELSE1:;
LOAD_NIL(ARG(0));
goto RETURN1;
}
F1plus(LOCAL(0));
{
CL_FORM *rest_3;
rest_3 = rest_1;
rest_1 = REST_CDR(rest_3);
}
goto M1_1;
}
RETURN1:;
}
}
void unintern1(CL_FORM *base)
{
LOAD_NIL(ARG(2));
LOAD_NIL(ARG(3));
if(CL_SYMBOLP(ARG(0)))
{
LOAD_SMSTR(SYM_NAME(ARG(0)), ARG(4));
}
else
{
if(CL_TRUEP(ARG(0)))
{
COPY(SYMVAL(Slisp, 676), ARG(4)); /* SYM_EXPECTED */
COPY(ARG(0), ARG(5));
Ferror(ARG(4), 2);
}
else
{
LOAD_SMSTR((CL_FORM *)&KClisp[266], ARG(4)); /* NIL */
}
}
LOAD_NIL(ARG(5));
COPY(ARG(1), ARG(6));
coerce_to_package(ARG(6));
COPY(ARG(6), ARG(1));
COPY(ARG(4), ARG(6));
COPY(ARG(1), ARG(7));
find_symbol1(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(2));
COPY(ARG(7), ARG(3));
}
}
if(EQ(ARG(2), ARG(0)))
{
LOAD_BOOL(CL_SYMBOLP(ARG(3)) && GET_SYMBOL(ARG(3)) == SYMBOL(Slisp, 384), ARG(6)); /* INTERNAL */
if(CL_TRUEP(ARG(6)))
{
goto THEN1;
}
else
{
} /* EXTERNAL */
}
else
{
goto ELSE2;
}
if(CL_SYMBOLP(ARG(3)) && GET_SYMBOL(ARG(3)) == SYMBOL(Slisp, 385))
{
THEN1:;
if(CL_SYMBOLP(ARG(3)) && GET_SYMBOL(ARG(3)) == SYMBOL(Slisp, 385)) /* EXTERNAL */
{
COPY(ARG(1), ARG(6));
COPY(ARG(6), ARG(7));
COPY(ARG(7), ARG(8));
LOAD_SYMBOL(SYMBOL(Slisp, 354), ARG(9)); /* PACKAGE */
rt_struct_typep(ARG(8));
if(CL_TRUEP(ARG(8)))
{
COPY(OFFSET(AR_BASE(GET_FORM(ARG(7))), 3 + 1), ARG(5));
}
else
{
COPY(SYMVAL(Slisp, 352), ARG(5)); /* NO_STRUCT */
COPY(ARG(7), ARG(6));
LOAD_SYMBOL(SYMBOL(Slisp, 354), ARG(7)); /* PACKAGE */
Ferror(ARG(5), 3);
}
}
else
{
COPY(ARG(1), ARG(6));
COPY(ARG(6), ARG(7));
COPY(ARG(7), ARG(8));
LOAD_SYMBOL(SYMBOL(Slisp, 354), ARG(9)); /* PACKAGE */
rt_struct_typep(ARG(8));
if(CL_TRUEP(ARG(8)))
{
COPY(OFFSET(AR_BASE(GET_FORM(ARG(7))), 2 + 1), ARG(5));
}
else
{
COPY(SYMVAL(Slisp, 352), ARG(5)); /* NO_STRUCT */
COPY(ARG(7), ARG(6));
LOAD_SYMBOL(SYMBOL(Slisp, 354), ARG(7)); /* PACKAGE */
Ferror(ARG(5), 3);
}
}
COPY(ARG(1), ARG(6));
LOAD_SYMBOL(SYMBOL(Slisp, 354), ARG(7)); /* PACKAGE */
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, 352), ARG(6)); /* NO_STRUCT */
COPY(ARG(1), ARG(7));
LOAD_SYMBOL(SYMBOL(Slisp, 354), ARG(8)); /* PACKAGE */
Ferror(ARG(6), 3);
}
COPY(ARG(0), ARG(7));
COPY(ARG(6), ARG(8));
LOAD_NIL(ARG(9));
LOAD_NIL(ARG(10));
LOAD_NIL(ARG(11));
member1(ARG(7));
if(CL_TRUEP(ARG(7)))
{
LOAD_FIXNUM(ARG(6), 0, ARG(6));
LOAD_NIL(ARG(7));
COPY(ARG(1), ARG(8));
LOAD_SYMBOL(SYMBOL(Slisp, 354), ARG(9)); /* PACKAGE */
rt_struct_typep(ARG(8));
if(CL_TRUEP(ARG(8)))
{
COPY(OFFSET(AR_BASE(GET_FORM(ARG(1))), 5 + 1), ARG(8));
}
else
{
COPY(SYMVAL(Slisp, 352), ARG(8)); /* NO_STRUCT */
COPY(ARG(1), ARG(9));
LOAD_SYMBOL(SYMBOL(Slisp, 354), ARG(10)); /* PACKAGE */
Ferror(ARG(8), 3);
}
M1_1:;
if(CL_ATOMP(ARG(8)))
{
LOAD_NIL(ARG(7));
goto RETURN1;
}
COPY(ARG(8), ARG(9));
COPY(GET_CAR(ARG(9)), ARG(7));
COPY(ARG(4), ARG(9));
COPY(ARG(7), ARG(10));
find_symbol1(ARG(9));
COPY(&mv_buf[0], ARG(10));
{
int nargs;
nargs = 2;
mv_count = 1;
{
switch(nargs)
{
case 0:
LOAD_NIL(ARG(9));
case 1:
LOAD_NIL(ARG(10));
nargs = 2;
}
COPY(ARG(9), ARG(2));
COPY(ARG(10), ARG(3));
}
}
if(CL_SYMBOLP(ARG(3)) && GET_SYMBOL(ARG(3)) == SYMBOL(Slisp, 385)) /* EXTERNAL */
{
if(CL_FIXNUMP(ARG(6)) && GET_FIXNUM(ARG(6)) == 0)
{
COPY(ARG(2), ARG(6));
}
else
{
if(EQ(ARG(2), ARG(6)))
{
}
else
{
LOAD_SMSTR((CL_FORM *)&Kunintern1[0], ARG(9)); /* ~S and ~S will cause a name conflict */
COPY(ARG(6), ARG(10));
COPY(ARG(2), ARG(11));
Ferror(ARG(9), 3);
}
}
}
COPY(ARG(8), ARG(9));
COPY(GET_CDR(ARG(9)), ARG(8));
goto M1_1;
RETURN1:;
COPY(ARG(1), ARG(6));
LOAD_SYMBOL(SYMBOL(Slisp, 354), ARG(7)); /* PACKAGE */
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, 352), ARG(6)); /* NO_STRUCT */
COPY(ARG(1), ARG(7));
LOAD_SYMBOL(SYMBOL(Slisp, 354), ARG(8)); /* PACKAGE */
Ferror(ARG(6), 3);
}
LOAD_SYMBOL(SYMBOL(Slisp, 392), ARG(7)); /* COUNT */
LOAD_FIXNUM(ARG(8), 1, ARG(8));
Flist(ARG(7), 2);
LOAD_GLOBFUN(&CFremove, ARG(8));
COPY(ARG(0), ARG(9));
COPY(ARG(6), ARG(10));
COPY(ARG(7), ARG(11));
Fapply(ARG(8), 4);
mv_count = 1;
COPY(ARG(8), ARG(6));
LOAD_FIXNUM(ARG(7), 4, ARG(7));
COPY(ARG(1), ARG(8));
LOAD_SYMBOL(SYMBOL(Slisp, 354), ARG(9)); /* PACKAGE */
rt_struct_typep(ARG(8));
if(CL_TRUEP(ARG(8)))
{
COPY(ARG(6), OFFSET(AR_BASE(GET_FORM(ARG(1))), 4 + 1));
}
else
{
COPY(SYMVAL(Slisp, 352), ARG(8)); /* NO_STRUCT */
COPY(ARG(1), ARG(9));
LOAD_SYMBOL(SYMBOL(Slisp, 354), ARG(10)); /* PACKAGE */
Ferror(ARG(8), 3);
}
}
COPY(ARG(0), ARG(6));
COPY(ARG(5), ARG(7));
LOAD_FIXNUM(ARG(8), 101, ARG(8));
COPY(ARG(4), ARG(9));
string_to_simple_string(ARG(9));
rt_sxhash_string(ARG(9));
COPY(ARG(9), ARG(10));
LOAD_FIXNUM(ARG(11), 101, ARG(11));
rt_floor(ARG(10));
COPY(&mv_buf[0], ARG(11));
mv_count = 1;
{
COPY(ARG(11), ARG(8));
}
del_pack_sym(ARG(6));
if(CL_SYMBOLP(ARG(0)))
{
COPY(SYM_PACKAGE(ARG(0)), ARG(6));
}
else
{
if(CL_TRUEP(ARG(0)))
{
COPY(SYMVAL(Slisp, 676), ARG(6)); /* SYM_EXPECTED */
COPY(ARG(0), ARG(7));
Ferror(ARG(6), 2);
}
else
{
COPY(SYMVAL(Slisp, 679), ARG(6)); /* *NIL-PACKAGE* */
}
}
if(EQ(ARG(6), ARG(1)))
{
COPY(ARG(0), ARG(6));
LOAD_NIL(ARG(7));
set_symbol_package(ARG(6));
}
LOAD_SYMBOL(SYMBOL(Slisp, 48), ARG(0)); /* T */
}
else
{
ELSE2:;
LOAD_NIL(ARG(0));
}
}
void rt_fixnump(CL_FORM *base)
{
LOAD_BOOL(CL_FIXNUMP(ARG(0)), ARG(0));
}
void gensym1(CL_FORM *base)
{
if(CL_TRUEP(ARG(0)))
{
LOAD_FIXNUM(ARG(2), 0, ARG(2));
if(CL_FIXNUMP(ARG(0)) && GET_FIXNUM(ARG(0)) >= GET_FIXNUM(ARG(2)))
{
COPY(ARG(0), SYMVAL(Slisp, 662)); /* *GENSYM-COUNTER* */
}
else
{
COPY(ARG(0), ARG(1));
Fstringp(ARG(1));
if(CL_TRUEP(ARG(1)))
{
COPY(ARG(0), SYMVAL(Slisp, 674)); /* *GENSYM-PREFIX* */
}
else
{
LOAD_SMSTR((CL_FORM *)&Kgensym1[0], ARG(1)); /* positive integer or string expected */
Ferror(ARG(1), 1);
}
}
}
LOAD_SYMBOL(SYMBOL(Slisp, 44), ARG(1)); /* STRING */
COPY(SYMVAL(Slisp, 674), ARG(2)); /* *GENSYM-PREFIX* */
COPY(SYMVAL(Slisp, 662), ARG(3)); /* *GENSYM-COUNTER* */
LOAD_FIXNUM(ARG(4), 10, ARG(4));
LOAD_SYMBOL(SYMBOL(Slisp, 18), ARG(5)); /* CHARACTER */
LOAD_NIL(ARG(6));
LOAD_NIL(ARG(7));
LOAD_SYMBOL(SYMBOL(Slisp, 48), ARG(8)); /* T */
LOAD_FIXNUM(ARG(9), 0, ARG(9));
LOAD_NIL(ARG(10));
LOAD_FIXNUM(ARG(11), 0, ARG(11));
LOAD_NIL(ARG(12));
LOAD_NIL(ARG(13));
LOAD_NIL(ARG(14));
make_array1(ARG(4));
make_string_output_stream1(ARG(4));
COPY(ARG(3), ARG(5));
COPY(ARG(4), ARG(6));
prin11(ARG(5));
COPY(ARG(4), ARG(5));
LOAD_SYMBOL(SYMBOL(Slisp, 64), ARG(6)); /* STREAM */
rt_struct_typep(ARG(5));
if(CL_TRUEP(ARG(5)))
{
COPY(OFFSET(AR_BASE(GET_FORM(ARG(4))), 0 + 1), ARG(5));
}
else
{
COPY(SYMVAL(Slisp, 352), ARG(5)); /* NO_STRUCT */
COPY(ARG(4), ARG(6));
LOAD_SYMBOL(SYMBOL(Slisp, 64), ARG(7)); /* STREAM */
Ferror(ARG(5), 3);
}
if(CL_SYMBOLP(ARG(5)) && GET_SYMBOL(ARG(5)) == SYMBOL(Slisp, 102)) /* STRING-OUTPUT */
{
}
else
{
LOAD_SMSTR((CL_FORM *)&KClisp[268], ARG(5)); /* string-output-stream expected */
Ferror(ARG(5), 1);
}
COPY(ARG(4), ARG(5));
COPY(ARG(5), ARG(6));
COPY(ARG(6), ARG(7));
LOAD_SYMBOL(SYMBOL(Slisp, 64), ARG(8)); /* STREAM */
rt_struct_typep(ARG(7));
if(CL_TRUEP(ARG(7)))
{
COPY(OFFSET(AR_BASE(GET_FORM(ARG(6))), 1 + 1), ARG(5));
}
else
{
COPY(SYMVAL(Slisp, 352), ARG(5)); /* NO_STRUCT */
LOAD_SYMBOL(SYMBOL(Slisp, 64), ARG(7)); /* STREAM */
Ferror(ARG(5), 3);
}
Ffuncall(ARG(5), 1);
mv_count = 1;
COPY(ARG(5), ARG(3));
Fconcatenate(ARG(1), 3);
Fmake_symbol(ARG(1));
COPY(SYMVAL(Slisp, 662), ARG(2)); /* *GENSYM-COUNTER* */
F1plus(ARG(2));
COPY(ARG(2), SYMVAL(Slisp, 662)); /* *GENSYM-COUNTER* */
COPY(ARG(1), ARG(0));
}
void unparse_unix_enough(CL_FORM *base)
{
LOAD_NIL(ARG(2));
LOAD_NIL(ARG(3));
ALLOC_CONS(ARG(4), ARG(2), ARG(3), ARG(2));
COPY(ARG(0), ARG(3));
Ppathname_directory(ARG(3));
COPY(ARG(1), ARG(4));
Ppathname_directory(ARG(4));
COPY(ARG(4), ARG(5));
Flength(ARG(5));
COPY(ARG(5), ARG(6));
LOAD_FIXNUM(ARG(7), 1, ARG(7));
Fgt(ARG(6), 2);
if(CL_TRUEP(ARG(6)))
{
COPY(ARG(3), ARG(6));
Flength(ARG(6));
COPY(ARG(5), ARG(7));
Fge(ARG(6), 2);
if(CL_TRUEP(ARG(6)))
{
COPY(ARG(3), ARG(6));
LOAD_FIXNUM(ARG(7), 0, ARG(7));
COPY(ARG(5), ARG(8));
subseq1(ARG(6));
COPY(ARG(4), ARG(7));
compare_component(ARG(6));
}
else
{
goto ELSE1;
}
}
else
{
goto ELSE1;
}
if(CL_TRUEP(ARG(6)))
{
LOAD_SYMBOL(SYMBOL(Slisp, 270), ARG(6)); /* RELATIVE */
COPY(ARG(5), ARG(7));
COPY(ARG(3), ARG(8));
Fnthcdr(ARG(7));
ALLOC_CONS(ARG(8), ARG(6), ARG(7), ARG(6));
}
else
{
ELSE1:;
if(CL_CONSP(ARG(3)))
{
COPY(GET_CAR(ARG(3)), ARG(6));
}
else
{
if(CL_TRUEP(ARG(3)))
{
LOAD_SMSTR((CL_FORM *)&KClisp[264], ARG(6)); /* ~a is not a list */
COPY(ARG(3), ARG(7));
Ferror(ARG(6), 2);
}
else
{
COPY(ARG(3), ARG(6));
}
}
if(CL_SYMBOLP(ARG(6)) && GET_SYMBOL(ARG(6)) == SYMBOL(Slisp, 267)) /* ABSOLUTE */
{
COPY(ARG(3), ARG(6));
}
else
{
LOAD_SMSTR((CL_FORM *)&KClisp[232], ARG(6)); /* ~S cannot be represented relative to ~S */
COPY(ARG(0), ARG(7));
COPY(ARG(1), ARG(8));
Ferror(ARG(6), 3);
}
}
COPY(ARG(6), ARG(7));
unparse_unix_directory_list(ARG(7));
COPY(ARG(2), ARG(8));
add_q(ARG(7));
COPY(ARG(0), ARG(3));
Ppathname_version(ARG(3));
if(CL_TRUEP(ARG(3)))
{
if(CL_SYMBOLP(ARG(3)) && GET_SYMBOL(ARG(3)) == SYMBOL(Slisp, 269)) /* NEWEST */
{
LOAD_NIL(ARG(4));
}
else
{
LOAD_SYMBOL(SYMBOL(Slisp, 48), ARG(4)); /* T */
}
}
else
{
LOAD_NIL(ARG(4));
}
COPY(ARG(0), ARG(5));
Ppathname_type(ARG(5));
if(CL_TRUEP(ARG(4)))
{
COPY(ARG(4), ARG(6));
}
else
{
if(CL_TRUEP(ARG(5)))
{
if(CL_SYMBOLP(ARG(5)) && GET_SYMBOL(ARG(5)) == SYMBOL(Slisp, 266)) /* UNSPECIFIC */
{
LOAD_NIL(ARG(6));
}
else
{
LOAD_SYMBOL(SYMBOL(Slisp, 48), ARG(6)); /* T */
}
}
else
{
LOAD_NIL(ARG(6));
}
}
COPY(ARG(0), ARG(7));
Ppathname_name(ARG(7));
if(CL_TRUEP(ARG(6)))
{
COPY(ARG(6), ARG(8));
}
else
{
if(CL_TRUEP(ARG(7)))
{
COPY(ARG(7), ARG(8));
COPY(ARG(1), ARG(9));
Ppathname_name(ARG(9));
compare_component(ARG(8));
if(CL_TRUEP(ARG(8)))
{
LOAD_NIL(ARG(8));
}
else
{
LOAD_SYMBOL(SYMBOL(Slisp, 48), ARG(8)); /* T */
}
}
else
{
LOAD_NIL(ARG(8));
}
}
if(CL_TRUEP(ARG(8)))
{
if(CL_TRUEP(ARG(7)))
{
}
else
{
LOAD_SMSTR((CL_FORM *)&KClisp[232], ARG(9)); /* ~S cannot be represented relative to ~S */
COPY(ARG(0), ARG(10));
COPY(ARG(1), ARG(11));
Ferror(ARG(9), 3);
}
COPY(ARG(7), ARG(9));
unparse_unix_piece(ARG(9));
COPY(ARG(2), ARG(10));
add_q(ARG(9));
}
if(CL_TRUEP(ARG(6)))
{
if(CL_TRUEP(ARG(5)))
{
LOAD_NIL(ARG(9));
}
else
{
LOAD_SYMBOL(SYMBOL(Slisp, 48), ARG(9)); /* T */
}
if(CL_TRUEP(ARG(9)))
{
goto THEN2;
}
else
{
} /* UNSPECIFIC */
if(CL_SYMBOLP(ARG(5)) && GET_SYMBOL(ARG(5)) == SYMBOL(Slisp, 266))
{
THEN2:;
LOAD_SMSTR((CL_FORM *)&KClisp[232], ARG(9)); /* ~S cannot be represented relative to ~S */
COPY(ARG(0), ARG(10));
COPY(ARG(1), ARG(11));
Ferror(ARG(9), 3);
}
LOAD_SMSTR((CL_FORM *)&Kunparse_unix_enough[0], ARG(9)); /* . */
COPY(ARG(2), ARG(10));
add_q(ARG(9));
COPY(ARG(5), ARG(9));
unparse_unix_piece(ARG(9));
COPY(ARG(2), ARG(10));
add_q(ARG(9));
}
if(CL_TRUEP(ARG(4)))
{
if(CL_SYMBOLP(ARG(3)) && GET_SYMBOL(ARG(3)) == SYMBOL(Slisp, 271)) /* WILD */
{
LOAD_SMSTR((CL_FORM *)&Kunparse_unix_enough[2], ARG(9)); /* .* */
COPY(ARG(2), ARG(10));
add_q(ARG(9));
}
else
{
if(CL_FIXNUMP(ARG(3)))
{
LOAD_NIL(ARG(9));
LOAD_SMSTR((CL_FORM *)&Kunparse_unix_enough[4], ARG(10)); /* .~D */
COPY(ARG(3), ARG(11));
Fformat(ARG(9), 3);
mv_count = 1;
COPY(ARG(2), ARG(10));
add_q(ARG(9));
}
else
{
LOAD_SMSTR((CL_FORM *)&KClisp[232], ARG(9)); /* ~S cannot be represented relative to ~S */
COPY(ARG(0), ARG(10));
COPY(ARG(1), ARG(11));
Ferror(ARG(9), 3);
}
}
}
LOAD_GLOBFUN(&CFconcatenate, ARG(3));
LOAD_SYMBOL(SYMBOL(Slisp, 40), ARG(4)); /* SIMPLE-STRING */
COPY(GET_CAR(ARG(2)), ARG(5));
Fapply(ARG(3), 3);
COPY(ARG(3), ARG(0));
}
