Key

Not instrumented

Conditionalized out

Executed

Not executed

Both branches taken

One branch taken

Neither branch taken

1

;;; fs.lisp --- Skel Filesystem

2

3

;; Skel Filesystem: Logical Paths, URI Schemas, etc

4

5

;;; Code:

6

(in-package :skel/core/int)

7

(declaim (type pathname skel-stash skel-store

8

skel-cache user-skelrc system-skelrc))

9

10

(sb-ext:define-load-time-global skel-stash (merge-homedir-pathnames ".stash/skel/stash/"))

11

(sb-ext:define-load-time-global skel-store (merge-homedir-pathnames ".stash/skel/store/"))

12

(sb-ext:define-load-time-global skel-cache (merge-homedir-pathnames ".stash/skel/cache/"))

13

(sb-ext:define-load-time-global skel-data (merge-homedir-pathnames ".stash/skel/data/"))

14

(sb-ext:define-load-time-global skel-path *default-pathname-defaults*)

15

(sb-ext:define-load-time-global user-skelrc (pathname (format nil "~~/~A" *default-skelrc*)))

16

(sb-ext:define-load-time-global system-skelrc (pathname "/etc/skelrc"))