Coverage report: /home/ellis/comp/core/lib/box/pkg.lisp

KindCoveredAll%
expression06 0.0
branch00nil
Key
Not instrumented
Conditionalized out
Executed
Not executed
 
Both branches taken
One branch taken
Neither branch taken
1
 ;;; lib/pod/pkg.lisp --- Pod package defs
2
 
3
 ;; Pod is a Lisp system for interacting with container runtimes --
4
 ;; i.e. Podman/Libpod.
5
 
6
 ;; Podman supports a RESTful API which is described here:
7
 ;; https://docs.podman.io/en/latest/_static/api.html
8
 
9
 ;; The API is the best way to interact with containers in almost all
10
 ;; cases but there are a few utilities for initializing the podman
11
 ;; server or spawning one in a user process when supported.
12
 
13
 ;;; Code:
14
 (defpackage :box
15
   (:use :cl :std :cli :sb-bsd-sockets :net :dat/json :config)
16
   (:export
17
    :box-config))
18
 
19
 (defpackage :box/archiso
20
   (:nicknames :archiso)
21
   (:use :cl :std :cli/shell :dat/json :obj/config :box)
22
   (:export :*archiso-config* :*archiso-creds* :archiso-config
23
            :mkarchiso
24
            :run-archiso))
25
 
26
 (defpackage :box/ignition
27
   (:nicknames :ignition)
28
   (:use :cl :std :shell :json :config :box :ast)
29
   (:export :*ignition-config* :ignition-config))
30
 
31
 (defpackage :box/qemu
32
   (:nicknames :qemu)
33
   (:use :cl :std :cli/shell :dat/json :config :box)
34
   (:export :*qemu-config* :*qemu-creds*))
35
 
36
 (defpackage :box/qmp
37
   (:nicknames :qmp)
38
   (:use :cl :std :dat/json :net/srv :box/qemu))
39
 
40
 (defpackage :box/qga
41
   (:nicknames :qga)
42
   (:use :cl :std :dat/json :net/srv :box/qemu))
43