Lines Matching defs:ary
1375 LispObj *ary;
1378 for (ary = object->data.array.dim, count = 1;
1379 ary != NIL; ary = CDR(ary))
1380 count *= FIXNUM_VALUE(CAR(ary));
1381 for (ary = object->data.array.list; count > 0;
1382 ary = CDR(ary), count--) {
1386 length += LispDoWriteObject(stream, CAR(ary), info, 1);
1397 LispObj *ary;
1405 for (i = 0, ary = object->data.array.dim; ary != NIL;
1406 i++, ary = CDR(ary))
1407 dims[i] = FIXNUM_VALUE(CAR(ary));
1410 ary = object->data.array.list;
1426 k++, ary = CDR(ary)) {
1432 CAR(ary), info, 1);
1440 CAR(ary), info, 0);
1448 ary = CDR(ary);