From c16bbea59154727b3391792313075d75a85eabb4 Mon Sep 17 00:00:00 2001
From: Matthias Benkard <code@mail.matthias.benkard.de>
Date: Thu, 8 Oct 2009 22:55:10 +0200
Subject: Further correct the use of Ironclad.

Ignore-this: 5b955b1405d40a077c1dba5f65c9a24c

darcs-hash:8f02a037f5f824c97631a976d40fc04f8dbdce14
---
 utils.lisp | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'utils.lisp')

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)
-- 
cgit v1.2.3