From 17860a5049f3d00bfd39eef519877ba2b44851c3 Mon Sep 17 00:00:00 2001 From: Matthias Benkard Date: Thu, 8 Oct 2009 22:48:58 +0200 Subject: Correct the use of Ironclad and CL-Base64. Ignore-this: b72aa14995541e8cde0715ac21c88a87 darcs-hash:3f9d574e1cae7aaeb53f27ec3105eb5902c7ebe6 --- utils.lisp | 4 ++-- 1 file 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) -- cgit v1.2.3