From f1886a815ae4d9a13d44ca50561157bcc688ce06 Mon Sep 17 00:00:00 2001 From: Sean Whitton Date: Thu, 1 Apr 2021 14:59:00 -0700 Subject: don't pass string as :DEFAULTS argument to ENSURE-PATHNAME Signed-off-by: Sean Whitton --- src/connection/chroot/fork.lisp | 5 +++-- 1 file changed, 3 insertions(+), 2 deletions(-) diff --git a/src/connection/chroot/fork.lisp b/src/connection/chroot/fork.lisp index 07e43f5..84adcf7 100644 --- a/src/connection/chroot/fork.lisp +++ b/src/connection/chroot/fork.lisp @@ -29,14 +29,15 @@ (unless (and (lisp-connection-p) (zerop (foreign-funcall "geteuid" :int))) (error "~&Forking into a chroot requires a Lisp image running as root")) (informat 1 "~&Forking into chroot at ~A" into) - (let* ((datadir-inside + (let* ((into* (ensure-pathname into)) + (datadir-inside (stripln (mrun "chroot" into "echo" "${XDG_CACHE_HOME:-$HOME/.cache}/consfigurator/data/"))) (datadir (ensure-pathname (subseq datadir-inside 1) - :defaults into :ensure-absolute t :ensure-directory t))) + :defaults into* :ensure-absolute t :ensure-directory t))) (continue-connection (make-instance 'chroot.fork-connection :into into :datadir datadir) remaining))) -- cgit v1.2.3