Skip to content
Snippets Groups Projects
Unverified Commit 26b009f5 authored by Eric Timmons's avatar Eric Timmons
Browse files

Add :COMPESSION to WITH-OPEN-TAR-FILE

parent 2609c254
No related branches found
No related tags found
No related merge requests found
Pipeline #5621 canceled
......@@ -10,6 +10,7 @@
(if-does-not-exist nil)
(type :auto)
(blocking-factor 20)
(compression :auto)
(header-encoding *default-header-encoding*))
(when (or (eq direction :io) (eq direction :probe))
(error "Cannot open tar-files in direction ~A" direction))
......@@ -34,7 +35,8 @@
(setf tar-file (open-tar-file stream :direction direction
:type type
:blocking-factor blocking-factor
:header-encoding header-encoding))
:header-encoding header-encoding
:compression compression))
(multiple-value-prog1
(funcall thunk tar-file)
(setf abort nil)))
......@@ -51,6 +53,7 @@
(if-exists nil)
(if-does-not-exist nil)
(type :auto)
(compression :auto)
(blocking-factor 20)
(header-encoding '*default-header-encoding*))
&body body)
......@@ -64,7 +67,8 @@ DIRECTION must be either :INPUT or :OUTPUT.
IF-EXISTS and IF-DOES-NOT-EXIST are passed to OPEN if PATHNAME-OR-STREAM is not
a stream.
See OPEN-TAR-FILE for a description of TYPE, BLOCKING-FACTOR, and HEADER-ENCODING."
See OPEN-TAR-FILE for a description of TYPE, BLOCKING-FACTOR, HEADER-ENCODING,
and COMPRESSION."
(when (or (eq direction :io) (eq direction :probe))
(error "Cannot open tar-files in direction ~A" direction))
`(call-with-open-tar-file (lambda (,tar-file-var) ,@body)
......@@ -74,7 +78,8 @@ See OPEN-TAR-FILE for a description of TYPE, BLOCKING-FACTOR, and HEADER-ENCODIN
:if-does-not-exist ,if-does-not-exist
:type ,type
:blocking-factor ,blocking-factor
:header-encoding ,header-encoding))
:header-encoding ,header-encoding
:compression ,compression))
(defmacro do-entries ((entry tar-file &optional result)
&body body)
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment