/[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.33 by camm, Mon Dec 27 22:17:53 2004 UTC revision 1.34 by camm, Fri Jan 7 17:58:34 2005 UTC
# Line 36  DEFCONST("ARRAY-RANK-LIMIT", sLarray_ran Line 36  DEFCONST("ARRAY-RANK-LIMIT", sLarray_ran
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    
# Line 115  fScheck_bounds_bounds(object x, int i) Line 115  fScheck_bounds_bounds(object x, int i)
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
# Line 127  DEFUNO_NEW("SVREF", object, fLsvref, LIS Line 127  DEFUNO_NEW("SVREF", object, fLsvref, LIS
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  {  {
# Line 462  DEFUN_NEW("GET-AELTTYPE",object,fSget_ae Line 462  DEFUN_NEW("GET-AELTTYPE",object,fSget_ae
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  }  }

Legend:
Removed from v.1.33  
changed lines
  Added in v.1.34

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