Coverage report: /Users/mohacker/src/yurrriq/land-of-lisp/src/guess.lisp

KindCoveredAll%
expression2020100.0
branch00nil
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.guess
3
   (:use :cl :prove)
4
   (:export :bigger
5
            :smaller
6
            :start-over))
7
 (in-package :lol.guess)
8
 
9
 
10
 (defparameter *small* 1)
11
 (defparameter *big* 100)
12
 
13
 
14
 (defun guess-my-number ()
15
   (ash (+ *small* *big*) -1))
16
 
17
 
18
 (defun smaller ()
19
   (setf *big* (1- (guess-my-number)))
20
   (guess-my-number))
21
 
22
 
23
 (defun bigger ()
24
   (setq *small* (1+ (guess-my-number)))
25
   (guess-my-number))
26
 
27
 
28
 (defun start-over ()
29
   (defparameter *small* 1)
30
   (defparameter *big* 100)
31
   (guess-my-number))