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