projects
/
sbcl.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
1.0.13.53: Minor changes to SB-COVER, SB-MD5 tests for Win32
[sbcl.git]
/
contrib
/
sb-md5
/
md5.lisp
diff --git
a/contrib/sb-md5/md5.lisp
b/contrib/sb-md5/md5.lisp
index
54d5810
..
5667e59
100644
(file)
--- 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))))
#+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)))))
(declare (ignore real-end))
(update-md5-state state data :start real-start
:end (+ real-start (- end start)))))