diff options
| author | Sean Whitton <spwhitton@spwhitton.name> | 2021-04-30 16:55:08 -0700 |
|---|---|---|
| committer | Sean Whitton <spwhitton@spwhitton.name> | 2021-04-30 17:56:41 -0700 |
| commit | 0ad4421ff9ace9fb9953ee5ec0c2052ce37f36ba (patch) | |
| tree | fb64d8b205761ad10a9e3dc4204a3cb0acd17101 /src/property/disk.lisp | |
| parent | 68d7fdae8e83847fb024bf8103dc0e71ffa29b24 (diff) | |
| download | consfigurator-0ad4421ff9ace9fb9953ee5ec0c2052ce37f36ba.tar.gz | |
reflect *MOUNT-BELOW* in OPENED-FILESYSTEM values
Signed-off-by: Sean Whitton <spwhitton@spwhitton.name>
Diffstat (limited to 'src/property/disk.lisp')
| -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))) |