Small change to HMAC-SHA1

svn: r16503
This commit is contained in:
Jay McCarthy 2009-11-02 19:54:52 +00:00
parent b877098bac
commit 32041b2fd5

View File

@ -28,8 +28,8 @@
[key_len : _int = (bytes-length key)] [key_len : _int = (bytes-length key)]
[data : _bytes] [data : _bytes]
[data_len : _int = (bytes-length data)] [data_len : _int = (bytes-length data)]
[md : _int = 0] [md : _pointer = #f]
[md_len : _int = 0] [md_len : _uint = 0]
f-> f->
_pointer)) _pointer))
(lambda (key data) (error 'HMAC-SHA1/raw "libcrypto could not load")))) (lambda (key data) (error 'HMAC-SHA1/raw "libcrypto could not load"))))