diff options
author | Guillaume LE VAILLANT <glv@posteo.net> | 2018-08-17 17:33:22 +0200 |
---|---|---|
committer | Guillaume LE VAILLANT <glv@posteo.net> | 2018-08-17 17:33:22 +0200 |
commit | 92188ae53f0641ebb13db4aa2637d184a3f9c3d2 (patch) | |
tree | 4ca86de8c2a5c7ece66be951892cd8e988dd138b /testing | |
parent | 8f0b0f547464401cec764e549b62bd5c81a3fae9 (diff) |
Reduce dependency on internals of nibbles
Diffstat (limited to 'testing')
-rw-r--r-- | testing/test-vectors/digests.lisp | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/testing/test-vectors/digests.lisp b/testing/test-vectors/digests.lisp index ce5f003..1675d19 100644 --- a/testing/test-vectors/digests.lisp +++ b/testing/test-vectors/digests.lisp @@ -52,7 +52,7 @@ #.(loop for digest in (crypto:list-all-digests) collect `(rtest:deftest ,(intern (format nil "~A/~A" digest '#:block-buffering)) (let* ((sequences - (mapcar (lambda (s) (coerce s 'nibbles:simple-octet-vector)) + (mapcar (lambda (s) (coerce s '(simple-array (unsigned-byte 8) (*)))) '(#(71 69 84) #(10) #(10) #(10) #(10) #(120 45 97 109 122 45 100 97 116 101 58) #(84 117 101 44 32 50 54 32 74 117 110 32 50) @@ -73,7 +73,7 @@ (one-shot-result (ironclad:digest-sequence ',digest (apply 'concatenate - 'nibbles:simple-octet-vector + '(simple-array (unsigned-byte 8) (*)) sequences)))) (equalp incremental-result one-shot-result)) t) into forms |