Commit 46b1fa68 authored by Eric Timmons's avatar Eric Timmons
Browse files

Add PREFIX to directory entries

parent 18740bb3
Pipeline #4688 passed with stage
in 6 minutes and 19 seconds
......@@ -140,8 +140,9 @@
(:documentation
"A directory."))
(defmethod write-directory-entry (tar-file name &rest args &key uname gname mode mtime uid gid size)
(declare (ignore uname gname mode mtime uid gid size))
(defmethod write-directory-entry (tar-file name &rest args &key uname gname mode mtime uid gid size
prefix)
(declare (ignore uname gname mode mtime uid gid size prefix))
(let ((header (apply #'make-instance (header-type tar-file)
:name name
:typeflag +tar-directory-file+
......
......@@ -216,7 +216,8 @@ written to the archive)."))
(:documentation
"Write a BLOCK-DEVICE-ENTRY to TAR-FILE."))
(defgeneric write-directory-entry (tar-file name &rest args &key uname gname mode mtime uid gid size)
(defgeneric write-directory-entry (tar-file name &rest args &key uname gname mode mtime uid gid size
prefix)
(:documentation
"Write a DIRECTORY-ENTRY to TAR-FILE."))
......
Supports Markdown
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment