From acb4f2ef3f75df9b1b7008f2eb858d127be096c8 Mon Sep 17 00:00:00 2001
From: jjgarcia <jjgarcia>
Date: Wed, 4 Dec 2002 17:46:15 +0000
Subject: [PATCH] The name of the character was clobbered and could not be
 accessed by the call to FEerror().

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

diff --git a/src/c/read.d b/src/c/read.d
index 75c71f38e..95be942a7 100644
--- a/src/c/read.d
+++ b/src/c/read.d
@@ -664,8 +664,9 @@ sharp_backslash_reader(cl_object in, cl_object c, cl_object d)
 				n = 8*n + c->string.self[i] - '0';
 		c = CODE_CHAR(n & 0377);
 	} else {
-		c = cl_name_char(c);
-		if (Null(c)) FEerror("~S is an illegal character name.", 1, c);
+		cl_object nc = cl_name_char(c);
+		if (Null(nc)) FEerror("~S is an illegal character name.", 1, c);
+		c = nc;
 	}
 	@(return c)
 }