From 67bb44b46643c618979881aea4dcaaa12e5e67c1 Mon Sep 17 00:00:00 2001
From: Eric Timmons <etimmons@mit.edu>
Date: Mon, 27 Dec 2021 17:09:04 -0500
Subject: [PATCH] Fix entry type detection for v7 archives

---
 CHANGELOG.md | 4 ++++
 src/v7.lisp  | 2 +-
 tar-file.asd | 2 +-
 3 files changed, 6 insertions(+), 2 deletions(-)

diff --git a/CHANGELOG.md b/CHANGELOG.md
index 1d2e0f3..449fd42 100644
--- a/CHANGELOG.md
+++ b/CHANGELOG.md
@@ -1,3 +1,7 @@
+## Unreleased
+
++ Fix bug with determining type of entries in v7 archives.
+
 ## v0.1.2 - September 25, 2021
 
 + Fix bug where strings read from headers were not bounded to the length of the
diff --git a/src/v7.lisp b/src/v7.lisp
index 599504b..e03afc0 100644
--- a/src/v7.lisp
+++ b/src/v7.lisp
@@ -25,7 +25,7 @@
   'v7-header)
 
 (defmethod entry-type ((tar-file v7-tar-file) header)
-  (if (alexandria:ends-with +ascii-/+ (name header))
+  (if (alexandria:ends-with #\/ (name header))
       'directory-entry
       (alexandria:switch ((typeflag header))
         (+tar-regular-file+
diff --git a/tar-file.asd b/tar-file.asd
index eb0093f..640448b 100644
--- a/tar-file.asd
+++ b/tar-file.asd
@@ -1,7 +1,7 @@
 ;;; -*- mode: lisp -*-
 
 (asdf:defsystem #:tar-file
-  :version "0.1.2"
+  :version "0.1.3"
   :author "Eric Timmons <eric@timmons.dev>"
   :maintainer "Eric Timmons <eric@timmons.dev>"
   :description "A package for reading and writing physical entries from/to tar files."
-- 
GitLab