diff --git a/CHANGELOG.md b/CHANGELOG.md index 1d2e0f3436681dd4da718476dc3c3b5b7ab222ae..449fd42376f9d36cc3a8ce7b9336caf059c1acc5 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 599504b9b78a29e93bf18925fdf34f088748a519..e03afc0e66ab1bbf028631663d6e33e8153c2549 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 eb0093f6407c2ebc2a48ec401f5ac63b97038492..640448b994dba5c6ee797e3a2b6fab33c9f08ceb 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."