From 068e2badb03b7ce82a6277d6e7bcd71c49fd3352 Mon Sep 17 00:00:00 2001
From: Matthias Benkard <code@mail.matthias.benkard.de>
Date: Thu, 8 Oct 2009 22:24:43 +0200
Subject: Use keywords to indicate Ironclad digest algorithms.

Ignore-this: 26c81c9c4ab7748e63c8b1c7a1667342

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

(limited to 'utils.lisp')

diff --git a/utils.lisp b/utils.lisp
index 57ebbe6..9dac197 100644
--- a/utils.lisp
+++ b/utils.lisp
@@ -396,7 +396,7 @@ ELEMENT-TYPE as the stream's."
            (their-digest (cdr (assoc "passworddigest" params :test 'equalp)))
            (our-digest (cl-base64:string-to-base64-string
                         (ironclad:digest-sequence
-                         'ironclad:sha1
+                         :sha1
                          (format nil "~A~A~A" nonce timestamp *wsse-key*)))))
       (declare (ignore user))
       (if (and (string= their-digest our-digest)
-- 
cgit v1.2.3