1.0.12.5: WITH-ARRAY-DATA touchups

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

diff --git a/src/code/sort.lisp b/src/code/sort.lisp
index e285dab..83e9898 100644 (file)
--- a/src/code/sort.lisp
+++ b/src/code/sort.lisp
@@ -31,8 +31,9 @@
                         (if key (%coerce-callable-to-fun key) #'identity))
       (let ((key-fun-or-nil (and key (%coerce-callable-to-fun key))))
         (with-array-data ((vector (the vector sequence))
-                          (start 0)
-                          (end (length sequence)))
+                          (start)
+                          (end)
+                          :check-fill-pointer t)
           (sort-vector vector start end predicate-fun key-fun-or-nil))
         sequence)
       (apply #'sb!sequence:sort sequence predicate args))))