170 	  s->ubnd = scm_to_ssize_t (spec);  in scm_i_shap2ra()
171           if (s->ubnd < 0)  in scm_i_shap2ra()
173           --s->ubnd;  in scm_i_shap2ra()
185 	  s->ubnd = scm_to_ssize_t (SCM_CAR (spec));  in scm_i_shap2ra()
186           if (s->ubnd - s->lbnd < -1)  in scm_i_shap2ra()
211       SCM_ASSERT_RANGE (1, bounds, s[k].lbnd <= s[k].ubnd + 1);
212       rlen = (s[k].ubnd - s[k].lbnd + 1) * s[k].inc;
248       SCM_ASSERT_RANGE (1, bounds, s[k].lbnd <= s[k].ubnd + 1);  in scm_from_contiguous_typed_array()
249       rlen = (s[k].ubnd - s[k].lbnd + 1) * s[k].inc;  in scm_from_contiguous_typed_array()
310 	  inc *= (SCM_I_ARRAY_DIMS (ra)[k].ubnd  in scm_i_ra_set_contp()
362 	    old_max += (s[k].ubnd - s[k].lbnd) * s[k].inc;
364 	    old_min += (s[k].ubnd - s[k].lbnd) * s[k].inc;
379       if (s[k].ubnd < s[k].lbnd)
400       if (s[k].ubnd > s[k].lbnd)
407 	    new_max += (s[k].ubnd - s[k].lbnd) * s[k].inc;
409 	    new_min += (s[k].ubnd - s[k].lbnd) * s[k].inc;
424       if (1 == s->inc && 0 == s->lbnd && length == 1 + s->ubnd)
426       if (s->ubnd < s->lbnd)
445       if (ik<(*s)->lbnd || ik>(*s)->ubnd)  in array_from_pos()
465       os->ubnd = s->ubnd;  in array_from_get_o()
673 	  SCM_I_ARRAY_DIMS (res)[k].ubnd = -1;
680 	  if (r->ubnd < r->lbnd)
683 	      r->ubnd = s->ubnd;
689 	      if (r->ubnd > s->ubnd)
690 		r->ubnd = s->ubnd;
739               len *= (s[k].ubnd - s[k].lbnd + 1);
761           SCM_I_ARRAY_DIMS (sra)->ubnd = len - 1;
785       size_t len = 1 + dim->ubnd - dim->lbnd, n;  in list_to_array()
899       for (i = h->dims[dim].lbnd; i <= h->dims[dim].ubnd;  in scm_i_print_array_dimension()
903           if (i < h->dims[dim].ubnd)  in scm_i_print_array_dimension()