Key

Not instrumented

Conditionalized out

Executed

Not executed

Both branches taken

One branch taken

Neither branch taken

1

(in-package :cl-user)

2

(defpackage lol.pudding

3

(:use :cl :prove)

4

(:export pudding-eater))

5

(in-package :lol.pudding)

6

7

8

(defvar *arch-enemy* nil)

9

10

11

(defun pudding-eater (person)

12

(case person

13

((henry) (setf *arch-enemy* 'stupid-lisp-alien)

14

'(curse you lisp alien - you ate my pudding))

15

((johnny) (setf *arch-enemy* 'useless-old-johnny)

16

'(i hope you choked on my pudding johnny))

17

(otherwise '(why you eat my pudding stranger ?))))