571 |
BEGIN_NO_INTERRUPT; |
BEGIN_NO_INTERRUPT; |
572 |
|
|
573 |
n = vs_top - vs_base; |
n = vs_top - vs_base; |
574 |
if (n != 1) |
if (n < 1) |
575 |
FEerror("Wrong number of arguments",0); |
FEtoo_few_arguments(vs_base,vs_top); |
576 |
|
if (n > 1) |
577 |
|
FEtoo_many_arguments(vs_base,vs_top); |
578 |
array = vs_base[0]; |
array = vs_base[0]; |
579 |
vs_base=vs_top; |
vs_base=vs_top; |
580 |
|
|
581 |
if (type_of(array)!=t_array && type_of(array)!=t_vector) |
/* if (type_of(array)!=t_array && type_of(array)!=t_vector && */ |
582 |
FEerror("Argument is not an array",0); |
/* type_of(array)!=t_bitvector && type_of(array)!=t_string) */ |
583 |
|
/* FEwrong_type_argument(sLarray,array); */ |
584 |
|
IisArray(array); |
585 |
a=array->a.a_displaced->c.c_car; |
a=array->a.a_displaced->c.c_car; |
586 |
|
|
587 |
if (a==Cnil) { |
if (a==Cnil) { |
927 |
return make_fixnum(x->v.v_fillp) ; |
return make_fixnum(x->v.v_fillp) ; |
928 |
|
|
929 |
no_fillp: |
no_fillp: |
930 |
FEerror("~a does not have a fill pointer",1,x); |
FEwrong_type_argument(sLvector,x); |
931 |
return make_fixnum(0); |
return make_fixnum(0); |
932 |
} |
} |
933 |
|
|
962 |
|
|
963 |
DEFUNO_NEW("ADJUSTABLE-ARRAY-P",object,fLadjustable_array_p, |
DEFUNO_NEW("ADJUSTABLE-ARRAY-P",object,fLadjustable_array_p, |
964 |
LISP,1,1,NONE,OO,OO,OO,OO,void,Ladjustable_array_p,(object x),"") |
LISP,1,1,NONE,OO,OO,OO,OO,void,Ladjustable_array_p,(object x),"") |
965 |
{ return sLt; |
{ |
966 |
|
IisArray(x); |
967 |
|
return sLt; |
968 |
} |
} |
969 |
|
|
970 |
DEFUNO_NEW("DISPLACED-ARRAY-P",object,fSdisplaced_array_p,SI,1, |
DEFUNO_NEW("DISPLACED-ARRAY-P",object,fSdisplaced_array_p,SI,1, |