X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcode%2Fprint.lisp;h=e235f4b2b938979b5fc5ffaca66b1d447f4d7cfd;hb=26265f96389d737bf2e1e4c787ea8943ae499944;hp=e9b58d0a84dfac6d66193ced313d12e55219fad0;hpb=98db51588a21d11a6564b0aadb90a412ef112a20;p=sbcl.git

diff --git a/src/code/print.lisp b/src/code/print.lisp
index e9b58d0..e235f4b 100644
--- a/src/code/print.lisp
+++ b/src/code/print.lisp
@@ -908,7 +908,8 @@
                ;; this for now. [noted by anonymous long ago] -- WHN 19991130
                `(or (char= ,char #\\)
                  (char= ,char #\"))))
-    (with-array-data ((data string) (start) (end (length string)))
+    (with-array-data ((data string) (start) (end)
+                      :check-fill-pointer t)
       (do ((index start (1+ index)))
           ((>= index end))
         (let ((char (schar data index)))