From 3414537e9e1886ba8bbc75a6de422cc7bb796fba Mon Sep 17 00:00:00 2001
From: jgarcia <jgarcia>
Date: Tue, 11 Mar 2008 22:17:38 +0000
Subject: [PATCH] string-streams do not support full characters yet.

---
 src/lsp/format.lsp | 8 ++++----
 1 file changed, 4 insertions(+), 4 deletions(-)

diff --git a/src/lsp/format.lsp b/src/lsp/format.lsp
index 3efc34137..396bec3bc 100644
--- a/src/lsp/format.lsp
+++ b/src/lsp/format.lsp
@@ -1996,8 +1996,8 @@
 							:downcase)))))
 	    ,@(expand-directive-list before))
 	 #+ecl
-	 `(let ((string (make-array 10 :element-type 'character :fill-pointer 0
-								:adjustable t)))
+	 `(let ((string (make-array 10 :element-type 'base-char
+				       :fill-pointer 0 :adjustable t)))
 	    (unwind-protect
 		 (with-output-to-string (stream string)
 		   ,@(expand-directive-list before))
@@ -2033,8 +2033,8 @@
 	     (before (subseq directives 0 posn))
 	     (jumped t)
 	     (after (nthcdr (1+ posn) directives))
-	     (string (make-array 10 :element-type 'character :adjustable t
-				 :fill-pointer 0)))
+	     (string (make-array 10 :element-type 'base-char
+				    :adjustable t :fill-pointer 0)))
 	(unwind-protect
 	     (with-output-to-string (stream string)
 	       (setf args (interpret-directive-list stream before orig-args args)))