From 2b771017bb0c0063c0eea75e9bb59533025644af Mon Sep 17 00:00:00 2001 From: "Pierre R. Mai" Date: Mon, 15 Oct 2012 00:09:56 +0200 Subject: [PATCH] Wrap buffer-size defconstant in eval-when (via cl-md5). This aids portability, especially to allegro and openmcl. --- md5.lisp | 7 ++++--- 1 file changed, 4 insertions(+), 3 deletions(-) diff --git a/md5.lisp b/md5.lisp index c7d36fc..6bf04b6 100644 --- a/md5.lisp +++ b/md5.lisp @@ -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) - "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.")) (deftype buffer-index () `(integer 0 ,+buffer-size+))