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

Fixed two small typos

Browse source
This commit is contained in:
Juan Jose Garcia Ripoll 2010-08-21 16:31:23 +02:00
parent bac154bc98
commit ca6e9168cb
1 changed files with 2 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

4
src/c/read.d
View file

@ -1516,12 +1516,12 @@ ecl_current_read_base(void)
{
const cl_env_ptr the_env = ecl_process_env();
/* INV: *READ-BASE* always has a value */
cl_object x = ECL_SYM_VAL(the_env, @'*read_base*');
cl_object x = ECL_SYM_VAL(the_env, @'*read-base*');
cl_fixnum b;
unlikely_if (!ECL_FIXNUMP(x) || ((b = fix(x)) < 2) || (b > 36))
{
ECL_SETQ(the_env, @'*read_base*', MAKE_FIXNUM(10));
ECL_SETQ(the_env, @'*read-base*', MAKE_FIXNUM(10));
FEerror("The value of *READ-BASE*~& ~S~%"
"is not in the range (INTEGER 2 36)", 1, x);
}