X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcode%2Fpprint.lisp;h=8c084d63ac546d764dca1be6bb114aae65f9dde6;hb=558e7ce44e6a8305474dc55adbdbc1f7119c9a5e;hp=90ea31d620bb567ed1a980ddce9361220c7b40d5;hpb=771b864c8f32af7734bc0550aeaf1539fc4df194;p=sbcl.git

diff --git a/src/code/pprint.lisp b/src/code/pprint.lisp
index 90ea31d..8c084d6 100644
--- a/src/code/pprint.lisp
+++ b/src/code/pprint.lisp
@@ -119,7 +119,7 @@
 
 (defun pretty-out (stream char)
   (declare (type pretty-stream stream)
-	   (type base-char char))
+	   (type character char))
   (cond ((char= char #\newline)
 	 (enqueue-newline stream :literal))
 	(t