diff options
| author | Sean Whitton <spwhitton@spwhitton.name> | 2021-05-28 09:32:01 -0700 |
|---|---|---|
| committer | Sean Whitton <spwhitton@spwhitton.name> | 2021-05-28 09:32:01 -0700 |
| commit | b54b70086dd67edeb83b6195b27bec8eb5e343c8 (patch) | |
| tree | e3d8ef0726c40f23f3bcc5cf282e42fff8d94f54 | |
| parent | f27e782b106b3f5f271db5083c6c0c4079919ee4 (diff) | |
| download | consfigurator-b54b70086dd67edeb83b6195b27bec8eb5e343c8.tar.gz | |
better test for completed debootstrap
The root might exist already if it's a mount point.
Signed-off-by: Sean Whitton <spwhitton@spwhitton.name>
| -rw-r--r-- | src/property/chroot.lisp | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/src/property/chroot.lisp b/src/property/chroot.lisp index 510288a..2ffa879 100644 --- a/src/property/chroot.lisp +++ b/src/property/chroot.lisp @@ -26,7 +26,7 @@ (if (test "-d" (merge-pathnames "debootstrap/" (ensure-directory-pathname root))) (progn (delete-remote-trees root) nil) - (test "-d" root))) + (remote-exists-p (merge-pathnames "usr/lib/os-release" root)))) (:apply (let* ((os (car (getf (hostattrs host) :os))) (args (list "debootstrap" |