From 6fd5899a64c5a5f2ea9005734de723f71b0264ec Mon Sep 17 00:00:00 2001
From: jgarcia <jgarcia>
Date: Fri, 10 Nov 2006 18:42:35 +0000
Subject: [PATCH] MAKE-STRING always produced a BASE-STRING

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

diff --git a/src/c/string.d b/src/c/string.d
index 08f5769b8..9633e6e2a 100644
--- a/src/c/string.d
+++ b/src/c/string.d
@@ -34,10 +34,11 @@ do_make_base_string(cl_index s, int code)
 static cl_object
 do_make_string(cl_index s, cl_index code)
 {
-	cl_object x = cl_alloc_simple_base_string(s);
+	cl_object x = cl_alloc_simple_extended_string(s);
+	cl_object c = CODE_CHAR(code);
 	cl_index i;
 	for (i = 0;  i < s;  i++)
-		x->base_string.self[i] = code;
+		x->string.self[i] = c;
 	return x;
 }
 #else