From 7ab401348f5b1f85aa8935562ca94c145768b4b7 Mon Sep 17 00:00:00 2001 From: Guillaume Le Vaillant Date: Thu, 3 Sep 2020 16:45:52 +0200 Subject: Fix benchmark --- benchmark/benchmark-implementation.lisp | 24 ++++++++++++------------ 1 file changed, 12 insertions(+), 12 deletions(-) diff --git a/benchmark/benchmark-implementation.lisp b/benchmark/benchmark-implementation.lisp index b8c4917..66204fb 100644 --- a/benchmark/benchmark-implementation.lisp +++ b/benchmark/benchmark-implementation.lisp @@ -71,21 +71,21 @@ (let ((speeds '())) (dolist (mac-name (ironclad:list-all-macs)) (let* ((key-length (ecase mac-name - (ironclad:blake2-mac 64) - (ironclad:blake2s-mac 32) - (ironclad:cmac 32) - (ironclad:gmac 32) - (ironclad:hmac 32) - (ironclad:poly1305 32) - (ironclad:siphash 16) - (ironclad:skein-mac 64))) + (:blake2-mac 64) + (:blake2s-mac 32) + (:cmac 32) + (:gmac 32) + (:hmac 32) + (:poly1305 32) + (:siphash 16) + (:skein-mac 64))) (key (ironclad:random-data key-length)) (iv (case mac-name - (ironclad:gmac (ironclad:random-data 12)))) + (:gmac (ironclad:random-data 12)))) (extra-args (case mac-name - (ironclad:cmac '(:aes)) - (ironclad:gmac (list :aes iv)) - (ironclad:hmac '(:sha256)))) + (:cmac '(:aes)) + (:gmac (list :aes iv)) + (:hmac '(:sha256)))) (mac (apply #'ironclad:make-mac mac-name key extra-args)) (buffer (ironclad:random-data *buffer-size*)) (speed (get-speed-data (dotimes (i (ceiling *data-size* *buffer-size*) -- cgit v1.2.3-70-g09d2