summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorMatthias Benkard <code@mail.matthias.benkard.de>2009-10-08 22:55:10 +0200
committerMatthias Benkard <code@mail.matthias.benkard.de>2009-10-08 22:55:10 +0200
commitc16bbea59154727b3391792313075d75a85eabb4 (patch)
tree2b3aee769401ccc473ea9ba5ca06b77561e050a3
parent17860a5049f3d00bfd39eef519877ba2b44851c3 (diff)
Further correct the use of Ironclad.
Ignore-this: 5b955b1405d40a077c1dba5f65c9a24c darcs-hash:8f02a037f5f824c97631a976d40fc04f8dbdce14
-rw-r--r--utils.lisp2
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)