36 |
make_fixnum(ARRAY_RANK_LIMIT),""); |
make_fixnum(ARRAY_RANK_LIMIT),""); |
37 |
|
|
38 |
DEFCONST("ARRAY-DIMENSION-LIMIT", sLarray_dimension_limit, |
DEFCONST("ARRAY-DIMENSION-LIMIT", sLarray_dimension_limit, |
39 |
LISP, make_fixnum(MOST_POSITIVE_FIX),""); |
LISP, make_fixnum(MOST_POSITIVE_FIX>>3),""); |
40 |
DEFCONST("ARRAY-TOTAL-SIZE-LIMIT", sLarray_total_size_limit, |
DEFCONST("ARRAY-TOTAL-SIZE-LIMIT", sLarray_total_size_limit, |
41 |
LISP, make_fixnum(MOST_POSITIVE_FIX),""); |
LISP, make_fixnum(MOST_POSITIVE_FIX),""); |
42 |
|
|
115 |
} |
} |
116 |
|
|
117 |
DEFUNO_NEW("SVREF", object, fLsvref, LISP, 2, 2, |
DEFUNO_NEW("SVREF", object, fLsvref, LISP, 2, 2, |
118 |
ONE_VAL, OO, IO, OO,OO,void,Lsvref,(object x,ufixnum i), |
ONE_VAL, OO, IO, OO,OO,void,Lsvref,(object x,fixnum i), |
119 |
"For array X and index I it returns (aref x i) ") |
"For array X and index I it returns (aref x i) ") |
120 |
{ |
{ |
121 |
if (type_of(x)==t_vector |
if (type_of(x)==t_vector |
127 |
return(Cnil); |
return(Cnil); |
128 |
} |
} |
129 |
|
|
130 |
DEFUN_NEW("ROW-MAJOR-AREF", object, fLrow_major_aref, LISP, 2, 2, |
DEFUNO_NEW("ROW-MAJOR-AREF", object, fLrow_major_aref, LISP, 2, 2, |
131 |
NONE, OO, IO, OO,OO,(object x,fixnum i), |
NONE, OO, IO, OO,OO,void,Lrow_major_aref,(object x,fixnum i), |
132 |
"For array X and index I it returns (aref x i) as if x were \ |
"For array X and index I it returns (aref x i) as if x were \ |
133 |
1 dimensional, even though its rank may be bigger than 1") |
1 dimensional, even though its rank may be bigger than 1") |
134 |
{ |
{ |
462 |
return make_fixnum((enum aelttype) i); |
return make_fixnum((enum aelttype) i); |
463 |
if (x == sLlong_float || x == sLsingle_float || x == sLdouble_float) |
if (x == sLlong_float || x == sLsingle_float || x == sLdouble_float) |
464 |
return make_fixnum(aet_lf); |
return make_fixnum(aet_lf); |
465 |
if (x==sLpositive_char) |
if (x==sLnon_negative_char) |
466 |
return make_fixnum(aet_char); |
return make_fixnum(aet_char); |
467 |
if (x==sLpositive_short) |
if (x==sLnon_negative_short) |
468 |
return make_fixnum(aet_short); |
return make_fixnum(aet_short); |
469 |
if (x==sLpositive_fixnum) |
if (x==sLnon_negative_fixnum) |
470 |
return make_fixnum(aet_fix); |
return make_fixnum(aet_fix); |
471 |
return make_fixnum(aet_object); |
return make_fixnum(aet_object); |
472 |
} |
} |