Parent Directory | Revision Log | Patch
revision 1.34 by camm, Fri Jan 7 17:58:34 2005 UTC | revision 1.35 by camm, Sat May 7 02:45:38 2005 UTC | |
---|---|---|
# | Line 1066 DEFUNO_NEW("ARRAY-DIMENSION",object,fLar | Line 1066 DEFUNO_NEW("ARRAY-DIMENSION",object,fLar |
1066 | IisArray(x); | IisArray(x); |
1067 | return make_fixnum(x->v.v_dim); | return make_fixnum(x->v.v_dim); |
1068 | } | } |
1069 | #ifdef STATIC_FUNCTION_POINTERS | |
1070 | object | |
1071 | fLarray_dimension(object x,fixnum i) { | |
1072 | return FFN(fLarray_dimension)(x,i); | |
1073 | } | |
1074 | #endif | |
1075 | ||
1076 | static void | static void |
1077 | Icheck_displaced(object displaced_list, object ar, int dim) | Icheck_displaced(object displaced_list, object ar, int dim) |
|
savannah-hackers-public@gnu.org | ViewVC Help |
Powered by ViewVC 1.1.26 |