Key

Not instrumented

Conditionalized out

Executed

Not executed

Both branches taken

One branch taken

Neither branch taken

1

;;; pkg.lisp --- SYN/GEN Tests

2

3

;;

4

5

;;; Code:

6

(in-package :syn/tests)

7

8

(defpackage :syn/tests/gen

9

(:use :cl :std :rt :syn/gen)

10

(:export

11

#:with-gen-test

12

#:%in

13

#:%out

14

#:%bin))

15

16

(in-package :syn/tests/gen)

17

18

(defmacro with-gen-test (file &body body)

19

`(let ((%in ,file)

20

(%out (make-pathname :defaults ,file :type (string-downcase *gen*)))

21

(%bin (make-pathname :defaults ,file :type "bin")))

22

,@body))