From 4295a5d15d8579da3f61788e2fa0af6be40f113c Mon Sep 17 00:00:00 2001 From: Sean Whitton Date: Mon, 31 May 2021 12:54:12 -0700 Subject: OPEN-VOLUME for OPENED-VOLUME: return a fresh value, as specified Signed-off-by: Sean Whitton --- src/property/disk.lisp | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'src/property/disk.lisp') 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)) -- cgit v1.2.3