aboutsummaryrefslogtreecommitdiff
path: root/src/property/disk.lisp
diff options
context:
space:
mode:
authorSean Whitton <spwhitton@spwhitton.name>2021-05-31 12:54:12 -0700
committerSean Whitton <spwhitton@spwhitton.name>2021-05-31 14:18:17 -0700
commit4295a5d15d8579da3f61788e2fa0af6be40f113c (patch)
tree017a3e12794dd1754322366c6c46cd73405fc92f /src/property/disk.lisp
parent33f17a22ce74eb605da95722a40516f4450f639c (diff)
downloadconsfigurator-4295a5d15d8579da3f61788e2fa0af6be40f113c.tar.gz
OPEN-VOLUME for OPENED-VOLUME: return a fresh value, as specified
Signed-off-by: Sean Whitton <spwhitton@spwhitton.name>
Diffstat (limited to 'src/property/disk.lisp')
-rw-r--r--src/property/disk.lisp2
1 files changed, 1 insertions, 1 deletions
diff --git a/src/property/disk.lisp b/src/property/disk.lisp
index 618c4bc..cb45e9c 100644
--- a/src/property/disk.lisp
+++ b/src/property/disk.lisp
@@ -199,7 +199,7 @@ Return values, if any, should be ignored.")
"A VOLUME object which has been made directly accessible as a block device."))
(defmethod open-volume ((volume opened-volume) file)
- volume)
+ (copy-volume-and-contents volume))
(defmethod create-volume ((volume opened-volume) file)
(values))