1.0.12.5: WITH-ARRAY-DATA touchups

[sbcl.git] / src / code / print.lisp

diff --git a/src/code/print.lisp b/src/code/print.lisp
index e9b58d0..e235f4b 100644 (file)
--- 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)))