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 external-format in flexi-streams variant.

Browse Source
This commit is contained in:
Pierre R. Mai
2015-07-17 22:30:56 +02:00
parent 3c51661bd8
commit b7aace4262
2 changed files with 8 additions and 3 deletions
Download Patch File Download Diff File Expand all files Collapse all files

5
md5.asd
View File

@ -17,6 +17,7 @@
:version "2.0.2" :version "2.0.2"
:depends-on (#+sbcl "sb-rotate-byte" :depends-on (#+sbcl "sb-rotate-byte"
#-(or :cmu :sbcl #-(or :cmu :sbcl
(and :lispworks (not :lispworks4)) :ccl :allegro) (and :lispworks (not :lispworks4))
:flexi-streams) :ccl :allegro)
"flexi-streams")
:components ((:file "md5"))) :components ((:file "md5")))

6
md5.lisp
View File

@ -712,7 +712,11 @@ determined by the underlying implementation."
(if (<= char-code-limit 256) (if (<= char-code-limit 256)
(md5sum-sequence string :start start :end end) (md5sum-sequence string :start start :end end)
(md5sum-sequence (md5sum-sequence
(flexi-streams:string-to-octets string))))) (flexi-streams:string-to-octets string
:external-format
(if (eq external-format :default)
:UTF-8
external-format))))))
(eval-when (:compile-toplevel :load-toplevel :execute) (eval-when (:compile-toplevel :load-toplevel :execute)
(defconstant +buffer-size+ (* 128 1024) (defconstant +buffer-size+ (* 128 1024)