diff options
| author | Sean Whitton <spwhitton@spwhitton.name> | 2021-05-02 12:26:10 -0700 |
|---|---|---|
| committer | Sean Whitton <spwhitton@spwhitton.name> | 2021-05-06 12:23:51 -0700 |
| commit | 0f9b6517daad070a144baae9925f12b15fec3ff7 (patch) | |
| tree | 02353a037fbf963f6a74279009fb523a897cc20a /src/property/disk.lisp | |
| parent | 0cc223cebb652f8c0d4c918298a16a90c86c321d (diff) | |
| download | consfigurator-0f9b6517daad070a144baae9925f12b15fec3ff7.tar.gz | |
DISK:VOLUMES: fix extracting elements of vector
Signed-off-by: Sean Whitton <spwhitton@spwhitton.name>
Diffstat (limited to 'src/property/disk.lisp')
| -rw-r--r-- | src/property/disk.lisp | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/src/property/disk.lisp b/src/property/disk.lisp index c8aab69..6136ca0 100644 --- a/src/property/disk.lisp +++ b/src/property/disk.lisp @@ -890,8 +890,8 @@ Example usage: (simple-program-error "~A is not a valid volume size." input)) (setf (getf initargs :volume-size) - (* (parse-integer (nth 0 groups)) - (eswitch ((nth 1 groups) :test #'string=) + (* (parse-integer (elt groups 0)) + (eswitch ((elt groups 1) :test #'string=) ("M" 1) ("G" 1024) ("T" 1048576))))))) |