diff options
| author | Sean Whitton <spwhitton@spwhitton.name> | 2021-09-05 15:38:46 -0700 |
|---|---|---|
| committer | Sean Whitton <spwhitton@spwhitton.name> | 2021-09-08 13:09:37 -0700 |
| commit | 210a2d70570792f8fac53960557232de910bff37 (patch) | |
| tree | 4060cbe2298a02426b2df7c31507512c948a6c1e /src/property/disk.lisp | |
| parent | a41a42f86145909bafa1d7ce75a2ca3a9944e7fa (diff) | |
| download | consfigurator-210a2d70570792f8fac53960557232de910bff37.tar.gz | |
add dep on Anaphora and use APROG1, ALET & AAND in various places
Signed-off-by: Sean Whitton <spwhitton@spwhitton.name>
Diffstat (limited to 'src/property/disk.lisp')
| -rw-r--r-- | src/property/disk.lisp | 7 |
1 files changed, 3 insertions, 4 deletions
diff --git a/src/property/disk.lisp b/src/property/disk.lisp index 3fa97ee..04393ce 100644 --- a/src/property/disk.lisp +++ b/src/property/disk.lisp @@ -925,10 +925,9 @@ filesystems will be incrementally updated when other properties change." if (and physical-disk-p (not found) (slot-boundp volume 'volume-contents)) do (setq found t) - and collect (let ((copy (copy-volume-and-contents volume))) - (change-class copy 'raw-disk-image) - (setf (image-file copy) image-pathname) - copy) + and collect (aprog1 (copy-volume-and-contents volume) + (change-class it 'raw-disk-image) + (setf (image-file it) image-pathname)) else unless physical-disk-p collect volume finally |