From 897d7a9a5f70b77103d36fff4fc8ca351a34887b Mon Sep 17 00:00:00 2001
From: Shinmera <shinmera@tymoon.eu>
Date: Tue, 30 Jul 2024 18:55:04 +0200
Subject: [PATCH] Fix bad path in tgz

---
 toolkit.lisp | 5 ++---
 1 file changed, 2 insertions(+), 3 deletions(-)

diff --git a/toolkit.lisp b/toolkit.lisp
index 98b7351..f322b12 100644
--- 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)