From 0ad4421ff9ace9fb9953ee5ec0c2052ce37f36ba Mon Sep 17 00:00:00 2001 From: Sean Whitton Date: Fri, 30 Apr 2021 16:55:08 -0700 Subject: reflect *MOUNT-BELOW* in OPENED-FILESYSTEM values Signed-off-by: Sean Whitton --- 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 82a7f55..a109720 100644 --- a/src/util.lisp +++ b/src/util.lisp @@ -178,6 +178,10 @@ one-dimensional collections of values." (merge-pathnames (enough-pathname pathname #P"/") (ensure-directory-pathname chroot))) +(defun in-chroot-pathname (pathname chroot) + (ensure-pathname (enough-pathname pathname chroot) + :ensure-absolute t :defaults #P"/")) + ;;;; Progress & debug printing -- cgit v1.2.3