cl-rw

commit 0b7dfac764dead025a9840381783f55c4616420b
parent 8494b88b25a130a108075fac8ae24109b510124d
Author: Tomas Hlavaty <tom@logand.com>
Date:   Sun, 21 Sep 2014 17:58:43 +0200

already had $HashAlgorithm

Diffstat:
M
tls.lisp
 | 
7
++-----

1 file changed, 2 insertions(+), 5 deletions(-)
diff --git a/tls.lisp b/tls.lisp
@@ -223,7 +223,7 @@
   (CLIENT_KEY_EXCHANGE . 16)
   (FINISHED            . 20))
 
-(defenum $HashAlgorith (:nbits 8)
+(defenum $HashAlgorithm (:nbits 8)
   (none   . 0)
   (md5    . 1)
   (sha1   . 2)
@@ -268,9 +268,6 @@
   (arbitrary_explicit_prime_curves . #xff01)
   (arbitrary_explicit_char2_curves . #xff02))
 
-(defenum %$SignatureHashAlgorithmHash (:nbits 8)
-  (sha256 . 4))
-
 (defenum %$SignatureHashAlgorithmSignature (:nbits 8)
   (rsa . 1))
 
@@ -411,7 +408,7 @@
   (u8 sha_hash :size length))
 
 (defstruc %$SignatureHashAlgorithm ()
-  (%$SignatureHashAlgorithmHash hash)
+  ($HashAlgorithm hash)
   (%$SignatureHashAlgorithmSignature signature))
 
 (defstruc $Signature ()