Coverage report: /home/ellis/comp/core/app/skel/core/var.lisp

KindCoveredAll%
expression020 0.0
branch00nil
Key
Not instrumented
Conditionalized out
Executed
Not executed
 
Both branches taken
One branch taken
Neither branch taken
1
 ;;; var.lisp --- Skel Core Vars
2
 
3
 ;; 
4
 
5
 ;;; Code:
6
 (in-package :skel/core/int)
7
 
8
 (declaim (type vc-designator *default-skel-vc-kind*))
9
 (defparameter *default-skel-vc-kind* :hg)
10
 (defparameter *default-skel-license-kind* :mpl2)
11
 ;; TODO (defvar *skelfile-boundary* nil "Set an upper bounds on how
12
 ;; many times and how far to walk an arbitrary file directory.")
13
 (declaim (type string *default-skel-user* *default-skelfile* *default-skel-extension*))
14
 (defparameter *default-skel-user* (uid-username (unix-getuid)))
15
 (defparameter *default-skelfile* "skelfile")
16
 (defparameter *default-skel-extension* "sk")
17
 (defparameter *default-skelrc* ".skelrc")
18
 
19
 (defvar *skel-init-hook* nil)
20
 
21
 (defvar *skel-project* nil)
22
 
23
 (defvar *skel-env* (make-hash-table :test 'equal)
24
   "A hash-table containing active SKEL environment variables. Keys and values are
25
 strings.
26
 
27
 The environment can be used for example in SB-EXT:RUN-PROGRAM by running the
28
 table through CLI/ENV:CONCAT-ENV-TABLE and passing it as the value of the
29
 :ENVIRONMENT keyword argument.")
30
 
31
 (defvar *skel-load-recursive* t
32
   "Whether to recursively load sk objects in the :include slot or store them
33
 uninitialized with non-nil :ast slots.")
34
 
35
 (defvar *default-skel-bindings* nil)
36
 
37
 (defvar *skel-project-macros* nil)
38
 (defvar *skel-project-symbol-macros* nil)
39
 (defvar *skel-project-functions* nil)