Key

Not instrumented

Conditionalized out

Executed

Not executed

Both branches taken

One branch taken

Neither branch taken

1

;;; krypt/condition.lisp --- Krypt Conditions

2

3

;;

4

5

;;; Code:

6

(in-package :krypt)

7

8

(define-condition krypt-condition ()

9

()

10

(:documentation "Condition signaled in the KRYPT package."))

11

12

(define-condition krypt-error (error krypt-condition)

13

()

14

(:documentation "Error signaled from the KRYPT package."))

15

16

(deferror simple-krypt-error (krypt-error simple-error) () (:auto t))