OSCL/md5
2
0
Fork 0
mirror of https://github.com/pmai/md5.git synced 2025-12-22 06:54:30 +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

5
md5.asd
View File

@ -15,5 +15,8 @@
:maintainer "Pierre R. Mai <pmai@pmsf.de>" :maintainer "Pierre R. Mai <pmai@pmsf.de>"
:licence "Public Domain" :licence "Public Domain"
:version "2.0.2" :version "2.0.2"
#+sbcl :depends-on #+sbcl ("sb-rotate-byte") :depends-on (#+sbcl "sb-rotate-byte"
#-(or :cmu :sbcl
(and :lispworks (not :lispworks4)) :ccl :allegro)
:flexi-streams)
:components ((:file "md5"))) :components ((:file "md5")))

3
md5.lisp
View File

@ -711,7 +711,8 @@ determined by the underlying implementation."
#-(or :cmu :sbcl (and :lispworks (not :lispworks4)) :ccl :allegro) #-(or :cmu :sbcl (and :lispworks (not :lispworks4)) :ccl :allegro)
(if (<= char-code-limit 256) (if (<= char-code-limit 256)
(md5sum-sequence string :start start :end end) (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) (eval-when (:compile-toplevel :load-toplevel :execute)
(defconstant +buffer-size+ (* 128 1024) (defconstant +buffer-size+ (* 128 1024)