diff options
| author | Matthias Benkard <code@mail.matthias.benkard.de> | 2009-10-08 22:55:10 +0200 |
|---|---|---|
| committer | Matthias Benkard <code@mail.matthias.benkard.de> | 2009-10-08 22:55:10 +0200 |
| commit | c16bbea59154727b3391792313075d75a85eabb4 (patch) | |
| tree | 2b3aee769401ccc473ea9ba5ca06b77561e050a3 /utils.lisp | |
| parent | 17860a5049f3d00bfd39eef519877ba2b44851c3 (diff) | |
Further correct the use of Ironclad.
Ignore-this: 5b955b1405d40a077c1dba5f65c9a24c
darcs-hash:8f02a037f5f824c97631a976d40fc04f8dbdce14
Diffstat (limited to 'utils.lisp')
| -rw-r--r-- | utils.lisp | 2 |
1 files changed, 1 insertions, 1 deletions
@@ -402,7 +402,7 @@ ELEMENT-TYPE as the stream's." (cl-base64:usb8-array-to-base64-string (ironclad:digest-sequence :sha1 - (map 'vector #'char-code (format nil "~A~A~A" nonce timestamp *wsse-key*))))))) + (map '(simple-array (unsigned-byte 8)) #'char-code (format nil "~A~A~A" nonce timestamp *wsse-key*))))))) (declare (ignore user)) (if (and (stringp our-digest) (stringp their-digest) |