mirrors/ecl
1
Fork 0
mirror of https://gitlab.com/embeddable-common-lisp/ecl.git synced 2026-01-15 13:52:16 -08:00
Code Issues Projects Releases Packages Wiki Activity

Improve readability in errors related to *READ-BASE* and *READ-DEFAULT-FLOAT-FORMAT*

Browse source
This commit is contained in:
Juan Jose Garcia Ripoll 2010-02-27 20:01:30 +01:00
parent d7aff31c8a
commit fcf8046f99
1 changed files with 4 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

6
src/c/read.d
View file

@ -1526,7 +1526,8 @@ ecl_current_read_base(void)
ecl_fixnum_greater(x, MAKE_FIXNUM(36)))
{
ECL_SETQ(the_env, @'*read_base*', MAKE_FIXNUM(10));
FEerror("The value of *READ-BASE*, ~S, was illegal.", 1, x);
FEerror("The value of *READ-BASE*~& ~S~%"
"is not in the range (INTEGER 2 36)", 1, x);
}
return fix(x);
}
@ -1551,7 +1552,8 @@ ecl_current_read_default_float_format(void)
#endif
}
ECL_SETQ(the_env, @'*read-default-float-format*', @'single-float');
FEerror("The value of *READ-DEFAULT-FLOAT-FORMAT*, ~S, was illegal.",
FEerror("The value of *READ-DEFAULT-FLOAT-FORMAT*~& ~S~%"
"is not one of (SINGLE-FLOAT SHORT-FLOAT DOUBLE-FLOAT LONG-FLOAT)",
1, x);
}