X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;ds=sidebyside;f=contrib%2Fsb-md5%2Fmd5.lisp;h=5667e59d727e2262c4adbf023f3d494fd868ceb9;hb=HEAD;hp=54d5810cac31a4ce0883b35939b5c5e545e799a3;hpb=bbb52aeac5d78d354c24923422e6493bc8f54778;p=sbcl.git

diff --git a/contrib/sb-md5/md5.lisp b/contrib/sb-md5/md5.lisp
index 54d5810..5667e59 100644
--- a/contrib/sb-md5/md5.lisp
+++ b/contrib/sb-md5/md5.lisp
@@ -525,7 +525,10 @@ in SEQUENCE , which must be a vector with element-type (UNSIGNED-BYTE
       #+sbcl
       ;; respect the fill pointer
       (let ((end (or end (length sequence))))
-        (sb-kernel:with-array-data ((data sequence) (real-start start) (real-end end))
+        (sb-kernel:with-array-data ((data sequence)
+                                    (real-start start)
+                                    (real-end end)
+                                    :check-fill-pointer t)
           (declare (ignore real-end))
           (update-md5-state state data :start real-start
                             :end (+ real-start (- end start)))))