X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcode%2Fpprint.lisp;h=0da0d3d8abb428c21831c123c25cf97b44d46e74;hb=4603ca100a7d181fe4316429365fc725501336dd;hp=9fb162e599aaf983324d72228ad8940f327e9ce1;hpb=230707c1899c1c008f7ce2ad97e2fd04849f7443;p=sbcl.git

diff --git a/src/code/pprint.lisp b/src/code/pprint.lisp
index 9fb162e..0da0d3d 100644
--- a/src/code/pprint.lisp
+++ b/src/code/pprint.lisp
@@ -138,7 +138,7 @@
     (unless (= start end)
       (sb!impl::string-dispatch (simple-base-string
                                  #!+sb-unicode
-                                 (simple-array character))
+                                 (simple-array character (*)))
           string
         ;; For POSITION transform
         (declare (optimize (speed 2)))