Further correct the use of Ironclad.

Ignore-this: 5b955b1405d40a077c1dba5f65c9a24c

darcs-hash:8f02a037f5f824c97631a976d40fc04f8dbdce14

1 files changed, 1 insertions, 1 deletions

diff --git a/utils.lisp b/utils.lisp
index 32cf319..47cfc5a 100644
--- a/utils.lisp
+++ b/utils.lisp
@@ -402,7 +402,7 @@ ELEMENT-TYPE as the stream's."
                             (cl-base64:usb8-array-to-base64-string
                              (ironclad:digest-sequence
                               :sha1
-                              (map 'vector #'char-code (format nil "~A~A~A" nonce timestamp *wsse-key*)))))))
+                              (map '(simple-array (unsigned-byte 8)) #'char-code (format nil "~A~A~A" nonce timestamp *wsse-key*)))))))
       (declare (ignore user))
       (if (and (stringp our-digest)
                (stringp their-digest)