diff options
author | Guillaume Le Vaillant <glv@posteo.net> | 2020-09-03 16:45:52 +0200 |
---|---|---|
committer | Guillaume Le Vaillant <glv@posteo.net> | 2020-09-03 16:45:52 +0200 |
commit | 7ab401348f5b1f85aa8935562ca94c145768b4b7 (patch) | |
tree | b1df966cc7f3c71e8668aab836e9dc8b28c5168a | |
parent | 3c14170325b5f49e026b4ad9618d165b6528a281 (diff) |
Fix benchmark
-rw-r--r-- | benchmark/benchmark-implementation.lisp | 24 |
1 files 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*) |