diff options
| author | Sean Whitton <spwhitton@spwhitton.name> | 2021-04-13 21:44:59 -0700 |
|---|---|---|
| committer | Sean Whitton <spwhitton@spwhitton.name> | 2021-04-13 21:45:14 -0700 |
| commit | 4bd7b4e6808553c665ea7670ef78d9ecfc05b84f (patch) | |
| tree | da82c16ddf101b1ea991efc1e5006deab8a80a33 /src/property/disk.lisp | |
| parent | 5bbb649fb5f54eb44e6f418ec7905ba9a2a9fb45 (diff) | |
| download | consfigurator-4bd7b4e6808553c665ea7670ef78d9ecfc05b84f.tar.gz | |
implement OPEN-VOLUME for OPENED-VOLUME
Signed-off-by: Sean Whitton <spwhitton@spwhitton.name>
Diffstat (limited to 'src/property/disk.lisp')
| -rw-r--r-- | src/property/disk.lisp | 3 |
1 files changed, 3 insertions, 0 deletions
diff --git a/src/property/disk.lisp b/src/property/disk.lisp index 80a11eb..db3b52a 100644 --- a/src/property/disk.lisp +++ b/src/property/disk.lisp @@ -121,6 +121,9 @@ insertion into files like /etc/crypttab and /etc/fstab. E.g. (:documentation "A VOLUME object which has been made directly accessible as a block device.")) +(defmethod open-volume ((volume opened-volume) file) + volume) + (defgeneric make-opened-volume (volume device-file) (:documentation "Where there is a class which is a subclass of both the class of VOLUME and |