From fc60fc304c8257662dde96210a5de40dd3fd0f9e Mon Sep 17 00:00:00 2001
From: Juan Jose Garcia Ripoll <jjgarcia@jjgr.(none)>
Date: Sun, 26 Oct 2008 17:45:22 +0100
Subject: [PATCH] The pretty printer has to accept extended characters now.

---
 src/lsp/pprint.lsp | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/src/lsp/pprint.lsp b/src/lsp/pprint.lsp
index 424371e3e..d929a0c99 100644
--- a/src/lsp/pprint.lsp
+++ b/src/lsp/pprint.lsp
@@ -145,7 +145,7 @@
 
 (defun pretty-out (stream char)
   (declare (type pretty-stream stream)
-	   (type base-char char)
+	   (type character char)
 	   (si::c-local))
   (cond ((char= char #\newline)
 	 (enqueue-newline stream :literal))