-(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.")
+(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."))