OSCL/md5
2
0
Fork 0
mirror of https://github.com/pmai/md5.git synced 2025-12-21 22:44:29 +01:00
Code Issues Packages Projects Releases Wiki Activity

Add support for other implementations (flexi-streams dependency).

Browse Source
This commit is contained in:
Daniel Kochmański
2015-07-07 12:56:11 +02:00
parent e7a9f9a812
commit 3c51661bd8
2 changed files with 6 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

3
md5.lisp
View File

@ -711,7 +711,8 @@ determined by the underlying implementation."
#-(or :cmu :sbcl (and :lispworks (not :lispworks4)) :ccl :allegro)
(if (<= char-code-limit 256)
(md5sum-sequence string :start start :end end)
(error "md5:md5sum-string is not supported for your implementation."))))
(md5sum-sequence
(flexi-streams:string-to-octets string)))))
(eval-when (:compile-toplevel :load-toplevel :execute)
(defconstant +buffer-size+ (* 128 1024)