summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorMatthias Benkard <code@mail.matthias.benkard.de>2009-10-08 22:24:43 +0200
committerMatthias Benkard <code@mail.matthias.benkard.de>2009-10-08 22:24:43 +0200
commit068e2badb03b7ce82a6277d6e7bcd71c49fd3352 (patch)
treebf752dbb39b278f66b59d81eea7f9a36ec5c38a3
parente90cc72980014bb8e113033c38058ae26a6ed1b8 (diff)
Use keywords to indicate Ironclad digest algorithms.
Ignore-this: 26c81c9c4ab7748e63c8b1c7a1667342 darcs-hash:724eae94ea8e14ee31357c655217ce8a0121d7c4
-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)