mirrors/ecl
1
Fork 0
mirror of https://gitlab.com/embeddable-common-lisp/ecl.git synced 2026-05-01 05:30:59 -07:00
Code Issues Projects Releases Packages Wiki Activity

Errors in array/sequence indexes are now a bit more uniform. Eliminated FEillegal_index. Changed prototype for FEtype_error_index. Fixed typo in FEwrong_index.

Browse source
This commit is contained in:
Juan Jose Garcia Ripoll 2011-04-03 10:03:50 +02:00
parent 3e802fd077
commit 853ec3ebc5
8 changed files with 24 additions and 31 deletions
Download patch file Download diff file Expand all files Collapse all files

4
src/c/array.d
View file

@ -84,10 +84,10 @@ checked_index(cl_object function, cl_object a, int which, cl_object index,
cl_index nonincl_limit)
{
cl_index output;
if (ecl_unlikely(!ECL_FIXNUMP(index) || ecl_fixnum_minusp(index)))
unlikely_if (!ECL_FIXNUMP(index) || ecl_fixnum_minusp(index))
FEwrong_index(function, a, which, index, nonincl_limit);
output = fix(index);
if (ecl_unlikely(output >= nonincl_limit))
unlikely_if (output >= nonincl_limit)
FEwrong_index(function, a, which, index, nonincl_limit);
return output;
}