Fix bad path in tgz

Shirakumo · Jul 30, 2024 · 897d7a9 · 897d7a9
1 parent 2af118a
commit 897d7a9
Showing 1 changed file with 2 additions and 3 deletions.
diff --git a/toolkit.lisp b/toolkit.lisp
@@ -36,9 +36,8 @@
 
 (defun tgz (files output &rest tar-args &key (if-exists :error) &allow-other-keys)
   (let ((tar (make-pathname :type "tar" :defaults output)))
-    (apply #'tar files tar :if-exists :error tar-args)
-    (unwind-protect
-         (gz tar output :if-exists if-exists)
+    (unwind-protect (progn (apply #'tar files tar :if-exists :error tar-args)
+                           (gz tar output :if-exists if-exists))
       (delete-file tar))))
 
 (defun enlist (list &rest els)