/[gcl]/gcl/o/array.c
ViewVC logotype

Diff of /gcl/o/array.c

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.16 by camm, Sat Feb 15 00:38:28 2003 UTC revision 1.17 by camm, Mon Feb 17 16:50:21 2003 UTC
# Line 571  Larray_displacement(void) { Line 571  Larray_displacement(void) {
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) {
# Line 923  DEFUNO_NEW("FILL-POINTER",object,fLfill_ Line 927  DEFUNO_NEW("FILL-POINTER",object,fLfill_
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    
# Line 958  DEFUNO_NEW("ARRAY-ELEMENT-TYPE",object,f Line 962  DEFUNO_NEW("ARRAY-ELEMENT-TYPE",object,f
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,

Legend:
Removed from v.1.16  
changed lines
  Added in v.1.17

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26