diff options
Diffstat (limited to 'src/property')
-rw-r--r-- | src/property/disk.lisp | 8 |
1 files changed, 5 insertions, 3 deletions
diff --git a/src/property/disk.lisp b/src/property/disk.lisp index f6a5615..0cac9d9 100644 --- a/src/property/disk.lisp +++ b/src/property/disk.lisp @@ -385,10 +385,12 @@ possible. Ignored if VOLUME-SIZE is also bound.")) (defclass-opened-volume mounted-filesystem (filesystem)) (defmethod open-volume ((volume filesystem) (file pathname)) - (let ((mount-point (chroot-pathname (mount-point volume) *mount-below*))) + (let* ((mount-point (chroot-pathname (mount-point volume) *mount-below*)) + (opened-volume (make-opened-volume volume file))) + (setf (mount-point opened-volume) mount-point) (file:directory-exists mount-point) - (mrun "mount" file mount-point)) - (make-opened-volume volume file)) + (mrun "mount" file mount-point) + opened-volume)) (defmethod close-volume ((volume mounted-filesystem)) (mrun "umount" (device-file volume))) |