summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rw-r--r--utils.lisp2
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)