From f5ca2ea1f9436ca12dabaecaeed8fe3db69c0c58 Mon Sep 17 00:00:00 2001
From: Sean Whitton <spwhitton@spwhitton.name>
Date: Thu, 22 Apr 2021 22:32:09 -0700
Subject: factor out CHROOT-PATHNAME

Signed-off-by: Sean Whitton <spwhitton@spwhitton.name>
---
 src/util.lisp | 4 ++++
 1 file changed, 4 insertions(+)

(limited to 'src/util.lisp')

diff --git a/src/util.lisp b/src/util.lisp
index c611c65..82a7f55 100644
--- a/src/util.lisp
+++ b/src/util.lisp
@@ -174,6 +174,10 @@ one-dimensional collections of values."
          (call-next-method))
      object))
 
+(defun chroot-pathname (pathname chroot)
+  (merge-pathnames (enough-pathname pathname #P"/")
+                   (ensure-directory-pathname chroot)))
+
 
 ;;;; Progress & debug printing
 
-- 
cgit v1.2.3