summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorMatthias Benkard <code@mail.matthias.benkard.de>2009-10-08 22:48:58 +0200
committerMatthias Benkard <code@mail.matthias.benkard.de>2009-10-08 22:48:58 +0200
commit17860a5049f3d00bfd39eef519877ba2b44851c3 (patch)
tree8b3daa36afe066a6b77b382c9f5df7379cdb3790
parent0de8ffe16893478124133182bccfadfe382aa7c4 (diff)
Correct the use of Ironclad and CL-Base64.
Ignore-this: b72aa14995541e8cde0715ac21c88a87 darcs-hash:3f9d574e1cae7aaeb53f27ec3105eb5902c7ebe6
-rw-r--r--utils.lisp4
1 files changed, 2 insertions, 2 deletions
diff --git a/utils.lisp b/utils.lisp
index df85e12..32cf319 100644
--- a/utils.lisp
+++ b/utils.lisp
@@ -399,10 +399,10 @@ ELEMENT-TYPE as the stream's."
(our-digest (and (stringp nonce)
(stringp timestamp)
(stringp *wsse-key*)
- (cl-base64:string-to-base64-string
+ (cl-base64:usb8-array-to-base64-string
(ironclad:digest-sequence
:sha1
- (format nil "~A~A~A" nonce timestamp *wsse-key*))))))
+ (map 'vector #'char-code (format nil "~A~A~A" nonce timestamp *wsse-key*)))))))
(declare (ignore user))
(if (and (stringp our-digest)
(stringp their-digest)