1.0.12.5: WITH-ARRAY-DATA touchups

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

diff --git a/src/code/seq.lisp b/src/code/seq.lisp
index 859fed3..c5c6bd8 100644 (file)
--- a/src/code/seq.lisp
+++ b/src/code/seq.lisp
@@ -2132,8 +2132,8 @@
                (frob sequence-arg from-end)
                (with-array-data ((sequence sequence-arg :offset-var offset)
                                  (start start)
-                                 (end (%check-vector-sequence-bounds
-                                       sequence-arg start end)))
+                                 (end end)
+                                 :check-fill-pointer t)
                  (multiple-value-bind (f p)
                      (macrolet ((frob2 () '(if from-end
                                             (frob sequence t)