Coverage report: /home/ellis/comp/core/lib/io/disk/proto.lisp

KindCoveredAll%
expression518 27.8
branch00nil
Key
Not instrumented
Conditionalized out
Executed
Not executed
 
Both branches taken
One branch taken
Neither branch taken
1
 ;;; disk.lisp --- Disk IO
2
 
3
 ;; A shared Disk storage interface.
4
 
5
 ;;; Commentary:
6
 
7
 ;; Note that many disk operations require root privileges. This package does
8
 ;; not handle privilege escalation.
9
 
10
 ;;; Code:
11
 (in-package :io/disk)
12
 
13
 ;;; Vars
14
 (defvar *filesystem-backends* (list :btrfs :ext4 :xfs))
15
 (defvar *default-filesystem* :btrfs)
16
 
17
 ;;; Conditions
18
 (define-condition disk-condition () ())
19
 
20
 (defun load-filesystem-backend (&optional (fs *default-filesystem*))
21
   (case fs
22
     (:btrfs (load-btrfs) (load-btrfsutil) t)
23
     (:xfs t)))
24
 
25
 (defclass disk () ((path :initarg :path :initform #p"/" :accessor path)))
26
 
27
 (defclass disk-partition () ())
28
 
29
 (defclass disk-subvolume () ())
30
 
31
 (defclass disk-snapshot () ())