Lines Matching refs:subscripts
344 aref array &rest subscripts
350 LispObj *array, *subscripts;
352 subscripts = ARGUMENT(1);
356 if (STRINGP(array) && CONSP(subscripts) && CDR(subscripts) == NIL) {
359 CHECK_INDEX(CAR(subscripts));
360 offset = FIXNUM_VALUE(CAR(subscripts));
371 for (count = 0, dim = subscripts, obj = array->data.array.dim; CONSP(dim);
374 LispDestroy("%s: too many subscripts %s",
375 STRFUN(builtin), STROBJ(subscripts));
382 LispDestroy("%s: too few subscripts %s",
383 STRFUN(builtin), STROBJ(subscripts));
385 for (count = seq = 0, dim = subscripts; CONSP(dim); dim = CDR(dim), seq++) {
6944 LispDestroy("%s: too few subscripts", STRFUN(builtin));
6969 LispDestroy("%s: too %s subscripts", STRFUN(builtin),