From 17860a5049f3d00bfd39eef519877ba2b44851c3 Mon Sep 17 00:00:00 2001
From: Matthias Benkard <code@mail.matthias.benkard.de>
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(-)

(limited to 'utils.lisp')

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