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

Wrap buffer-size defconstant in eval-when (via cl-md5).

Browse Source 
This aids portability, especially to allegro and openmcl.
This commit is contained in:
Pierre R. Mai
2012-10-15 00:09:56 +02:00
parent fac706f678
commit 2b771017bb
1 changed files with 4 additions and 3 deletions
Download Patch File Download Diff File Expand all files Collapse all files

5
md5.lisp
View File

@ -508,9 +508,10 @@ simple-arrays with such element types."
(update-md5-state state sequence :start start :end real-end))
(finalize-md5-state state)))
(defconstant +buffer-size+ (* 128 1024)
(eval-when (:compile-toplevel :load-toplevel :execute)
(defconstant +buffer-size+ (* 128 1024)
"Size of internal buffer to use for md5sum-stream and md5sum-file
operations. This should be a multiple of 64, the MD5 block size.")
operations. This should be a multiple of 64, the MD5 block size."))
(deftype buffer-index () `(integer 0 ,+buffer-size+))