Coverage report: /home/ellis/comp/core/app/packy/srv.lisp

KindCoveredAll%
expression018 0.0
branch00nil
Key
Not instrumented
Conditionalized out
Executed
Not executed
 
Both branches taken
One branch taken
Neither branch taken
1
 ;;; packy/srv.lisp --- Packy Server
2
 
3
 ;; Packy Server API.
4
 
5
 ;;; Commentary:
6
 
7
 ;; The server is responsible for provisioning connected clients with a package
8
 ;; registry API.
9
 
10
 ;; The server is HTTP/S compatible and based on NET/SRV protocol.
11
 
12
 ;;; Code:
13
 
14
 (in-package :packy)
15
 
16
 (defclass packy-service (service) ())
17
 
18
 (defstruct packy-server)
19
 
20
 (defun ensure-packy-directories (&optional (path *packy-home*))
21
   (dolist (p '("dist/" "data/" "doc/" "report/" "vc/"))
22
     (ensure-directories-exist (merge-pathnames p path)))
23
   (ensure-dist-target-directories path))
24
 
25
 (defun ensure-dist-target-directories (&optional (path *packy-home*) (targets *packy-dist-targets*))
26
   (dolist (p (mapcar 'directory-path targets))
27
     (ensure-directories-exist (merge-pathnames p path))))