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 md5sum-string support for AllegroCL.

Browse Source
This commit is contained in:
Pierre R. Mai
2012-10-23 02:11:28 +02:00
parent 88d10b54c7
commit 157eb9e5eb
1 changed files with 5 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

6
md5.lisp
View File

@ -677,7 +677,11 @@ in the resulting binary representation."
(md5sum-sequence (md5sum-sequence
(ccl:encode-string-to-octets string :external-format external-format (ccl:encode-string-to-octets string :external-format external-format
:start start :end end)) :start start :end end))
#-(or :cmu :sbcl (and :lispworks (not :lispworks4)) :ccl) #+allegro
(md5sum-sequence
(excl:string-to-octets string :external-format external-format
:null-terminate nil :start start :end end))
#-(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.")))) (error "md5:md5sum-string is not supported for your implementation."))))