From 59f83caebbd2f92fd634f6968e6d17b50ffa3dc7 Mon Sep 17 00:00:00 2001
From: Magnus Henoch <magnus.henoch@gmail.com>
Date: Fri, 6 Jul 2018 13:32:07 +0100
Subject: [PATCH] Use cl-case and cl-assert

Don't depend on the cl library having been loaded.
---
 archive-cpio.el | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/archive-cpio.el b/archive-cpio.el
index 9d4c109..efa056c 100644
--- a/archive-cpio.el
+++ b/archive-cpio.el
@@ -73,7 +73,7 @@ This function is meant to be used as a :before-until advice for
 (defun archive-cpio--parse-mode (mode)
   "Parse MODE, an integer, and return a permissions string (10 characters)."
   (string
-   (case (logand #o170000 mode)
+   (cl-case (logand #o170000 mode)
      (#o140000 ?s)
      (#o120000 ?l)
      (#o100000 ?-)
@@ -103,7 +103,7 @@ ARCHIVE-BUFFER is nil."
   (let (visual files)
     (goto-char (point-min))
     (while (not (eobp))
-      (assert (zerop (mod (- (point) (point-min)) 4)))
+      (cl-assert (zerop (mod (- (point) (point-min)) 4)))
       (cond
        ((not (looking-at archive-cpio-entry-header-re))
         (error "Unrecognized cpio header format"))