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 @@ ...@@ -140,8 +140,9 @@
(:documentation (:documentation
"A directory.")) "A directory."))
(defmethod write-directory-entry (tar-file name &rest args &key uname gname mode mtime uid gid size) (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)) prefix)
(declare (ignore uname gname mode mtime uid gid size prefix))
(let ((header (apply #'make-instance (header-type tar-file) (let ((header (apply #'make-instance (header-type tar-file)
:name name :name name
:typeflag +tar-directory-file+ :typeflag +tar-directory-file+
......
...@@ -216,7 +216,8 @@ written to the archive).")) ...@@ -216,7 +216,8 @@ written to the archive)."))
(:documentation (:documentation
"Write a BLOCK-DEVICE-ENTRY to TAR-FILE.")) "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 (:documentation
"Write a DIRECTORY-ENTRY to TAR-FILE.")) "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