Key

Not instrumented

Conditionalized out

Executed

Not executed

Both branches taken

One branch taken

Neither branch taken

1

;;; cfg.lisp --- Packy Configuration

2

3

;;

4

5

;;; Code:

6

(in-package :packy)

7

8

(defconfig packy-config (ast)

9

((path :initarg :path :accessor path)))

10

11

(defconfig packy-user-config (packy-config) ())

12

13

(defmethod make-config ((self (eql :packy)) &key ast path)

14

(make-instance 'packy-user-config :ast ast :path path))