mirrors/ecl
1
Fork 0
mirror of https://gitlab.com/embeddable-common-lisp/ecl.git synced 2026-03-14 17:00:51 -07:00
Code Issues Projects Releases Packages Wiki Activity

improve error message for wrong index

Browse source 
Use ~S instead of ~A to make the difference between e.g. "0" and 0
clear.

Fixes #687.
This commit is contained in:
Marius Gerbershagen 2022-12-27 15:32:55 +01:00
parent 7175e592bd
commit 4da9cc3a87
1 changed files with 2 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

4
src/c/error.d
View file

@ -345,11 +345,11 @@ FEwrong_index(cl_object function, cl_object a, int which, cl_object ndx,
{
const char *message1 =
"In ~:[an anonymous function~;~:*function ~A~], "
"the ~*index into the object~% ~A.~%"
"the ~*index into the object~% ~S~%"
"takes a value ~D out of the range ~A.";
const char *message2 =
"In ~:[an anonymous function~;~:*function ~A~], "
"the ~:R index into the object~% ~A~%"
"the ~:R index into the object~% ~S~%"
"takes a value ~D out of the range ~A.";
cl_object limit = ecl_make_integer(nonincl_limit-1);
cl_object type = ecl_make_integer_type(ecl_make_fixnum(0), limit);