diff options
| author | Sean Whitton <spwhitton@spwhitton.name> | 2021-04-26 11:55:14 -0700 |
|---|---|---|
| committer | Sean Whitton <spwhitton@spwhitton.name> | 2021-04-26 11:55:14 -0700 |
| commit | 47581ec779e77ab1e4016713c77b0a6b568ad08e (patch) | |
| tree | 91cc510d2a811e7dd20bbf0dfb2afebee8d18ba1 /src/property/disk.lisp | |
| parent | bad0089062a7705e02b81922123285b5b6ec1233 (diff) | |
| download | consfigurator-47581ec779e77ab1e4016713c77b0a6b568ad08e.tar.gz | |
when creating partition tables, don't assume VOLUME-SIZE is bound
Signed-off-by: Sean Whitton <spwhitton@spwhitton.name>
Diffstat (limited to 'src/property/disk.lisp')
| -rw-r--r-- | src/property/disk.lisp | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/src/property/disk.lisp b/src/property/disk.lisp index 8538f59..6f7e892 100644 --- a/src/property/disk.lisp +++ b/src/property/disk.lisp @@ -314,7 +314,8 @@ value in the case of EFI system partitions, in which case use #xEF00.")) (loop for partition in (volume-contents volume) for code = (partition-typecode partition) collect (strcat "--new=0:0:" - (if (eql (volume-size partition) :remaining) + (if (and (slot-boundp partition 'volume-size) + (eql (volume-size partition) :remaining)) "0" (format nil "+~DM" (volume-minimum-size partition)))) |