diff options
Diffstat (limited to 'src/util.lisp')
| -rw-r--r-- | src/util.lisp | 4 |
1 files changed, 4 insertions, 0 deletions
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 |