diff options
author | Sean Whitton <spwhitton@spwhitton.name> | 2021-04-01 14:59:00 -0700 |
---|---|---|
committer | Sean Whitton <spwhitton@spwhitton.name> | 2021-04-01 15:56:45 -0700 |
commit | f1886a815ae4d9a13d44ca50561157bcc688ce06 (patch) | |
tree | fe3a0c6252a527938333d1c15edc4205967c2c3f | |
parent | a81f3b33252971f60ef3185af4a6281f93828db1 (diff) | |
download | consfigurator-f1886a815ae4d9a13d44ca50561157bcc688ce06.tar.gz |
don't pass string as :DEFAULTS argument to ENSURE-PATHNAME
Signed-off-by: Sean Whitton <spwhitton@spwhitton.name>
-rw-r--r-- | src/connection/chroot/fork.lisp | 5 |
1 files 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))) |