From ca6e9168cb2b413a64c8fcfcf505afa5afbca61e Mon Sep 17 00:00:00 2001 From: Juan Jose Garcia Ripoll Date: Sat, 21 Aug 2010 16:31:23 +0200 Subject: [PATCH] Fixed two small typos --- src/c/read.d | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/src/c/read.d b/src/c/read.d index 8ac42bff0..f77cf6cd5 100644 --- a/src/c/read.d +++ b/src/c/read.d @@ -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); }