diff options
| author | Sean Whitton <spwhitton@spwhitton.name> | 2022-03-09 16:32:17 -0700 |
|---|---|---|
| committer | Sean Whitton <spwhitton@spwhitton.name> | 2022-03-09 16:34:33 -0700 |
| commit | 6d1d7ea0bbd0ef970e22f4c87775f95fb3b8452b (patch) | |
| tree | 5c93462a94a019b5f8f3a55299d3f04fe6b2aedd /src/property/disk.lisp | |
| parent | 7cc46462f5ca23723317c2b4b6099ac7daaf7258 (diff) | |
| download | consfigurator-6d1d7ea0bbd0ef970e22f4c87775f95fb3b8452b.tar.gz | |
add "local" and "remote" to the names of some exported symbols
Signed-off-by: Sean Whitton <spwhitton@spwhitton.name>
Diffstat (limited to 'src/property/disk.lisp')
| -rw-r--r-- | src/property/disk.lisp | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/src/property/disk.lisp b/src/property/disk.lisp index 9466b5d..3054441 100644 --- a/src/property/disk.lisp +++ b/src/property/disk.lisp @@ -283,7 +283,7 @@ directly writing out with dd(1).")) (defmethod create-volume ((volume raw-disk-image) (file null)) "Ensure that a raw disk image exists. Will overwrite only regular files." (let ((file (image-file volume))) - (when (test "-L" file "-o" "-e" file "-a" "!" "-f" file) + (when (remote-test "-L" file "-o" "-e" file "-a" "!" "-f" file) (failed-change "~A already exists and is not a regular file." file)) ;; Here, following Propellor, we want to ensure that the disk image size ;; is a multiple of 4096 bytes, so that the size is aligned to the common |