From 99a56f75ee3c8a80c7241bea57ea2f861953dd5d Mon Sep 17 00:00:00 2001
From: jjgarcia <jjgarcia>
Date: Tue, 11 Jan 2005 14:31:55 +0000
Subject: [PATCH] Use escape characters when there are invalid characters in
 the symbol name

---
 src/c/print.d | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/src/c/print.d b/src/c/print.d
index 2686ec52b..804d0a359 100644
--- a/src/c/print.d
+++ b/src/c/print.d
@@ -687,7 +687,7 @@ needs_to_be_escaped(cl_object s, cl_object readtable, cl_object print_case)
 	for (i = 0; i < s->string.fillp;  i++) {
 		int c = s->string.self[i] & 0377;
 		int syntax = readtable->readtable.table[c].syntax_type;
-		if (syntax != cat_constituent || (c) == ':')
+		if (syntax != cat_constituent || ecl_invalid_character_p(c) || (c) == ':')
 			return 1;
 		if ((action == ecl_case_downcase) && isupper(c))
 			return 1;