Use keywords to indicate Ironclad digest algorithms.

Ignore-this: 26c81c9c4ab7748e63c8b1c7a1667342

darcs-hash:724eae94ea8e14ee31357c655217ce8a0121d7c4

1 files changed, 1 insertions, 1 deletions

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)