From bc0c5db519e23403c88a40abb55267a81836b1d2 Mon Sep 17 00:00:00 2001
From: Juan Jose Garcia Ripoll <jjgarcia@users.sourceforge.net>
Date: Thu, 9 Feb 2012 21:26:27 +0100
Subject: [PATCH] #\ should not rebind the readtable when reading the character
 name.

---
 src/c/read.d | 2 --
 1 file changed, 2 deletions(-)

diff --git a/src/c/read.d b/src/c/read.d
index 5bdb9902f..cfe4dbc31 100644
--- a/src/c/read.d
+++ b/src/c/read.d
@@ -659,10 +659,8 @@ sharp_backslash_reader(cl_object in, cl_object c, cl_object d)
 			FEreader_error("~S is an illegal CHAR-FONT.", in, 1, d);
                 }
         }
-	ecl_bds_bind(env, @'*readtable*', cl_core.standard_readtable);
 	token = ecl_read_object_with_delimiter(in, EOF, ECL_READ_ONLY_TOKEN,
                                                cat_single_escape);
-	ecl_bds_unwind1(env);
 	if (token == Cnil) {
 		c = Cnil;
 	} else if (TOKEN_STRING_FILLP(token) == 1) {