[nongnu] elpa/base32 269044a4a2 082/103: Replace a single use of cl-case with cond

[ELPA Syncer]

branch: elpa/base32
commit 269044a4a210906e2ebbf789c029441fcc5cc70e
Author: Vivek Das Mohapatra <vivek@collabora.com>
Commit: Vivek Das Mohapatra <vivek@collabora.com>

    Replace a single use of cl-case with cond
---
 totp-auth-hmac.el | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

diff --git a/totp-auth-hmac.el b/totp-auth-hmac.el
index c398450e70..24dd7a2b34 100644
--- a/totp-auth-hmac.el
+++ b/totp-auth-hmac.el
@@ -10,9 +10,9 @@
 (defun totp-auth-hmac-algo-block-size (algo)
   "Return the expected block size of the given hash algorithm ALGO.
 ALGO may be one of: \\='(md5 sha1 sha224 sha256 sha384 sha512)."
-  (cl-case algo
-    ((md5 sha1 sha224 sha256)  64)
-    ((sha384 sha512)          128)))
+  (cond
+    ((memq algo '(md5 sha1 sha224 sha256))  64)
+    ((memq algo '(sha384 sha512))          128)))
 
 (defun totp-auth-hmac-xpad (algo char)
   "Create a pad of the block size for ALGO, consisting of CHAR.