Key

Not instrumented

Conditionalized out

Executed

Not executed

Both branches taken

One branch taken

Neither branch taken

1

;;; condition.lisp --- Rustls Conditions

2

3

;;

4

5

;;; Code:

6

(in-package :rustls)

7

8

(define-condition rustls-condition () ())

9

10

(define-condition rustls-c-error (rustls-condition std:std-error) ())

11

12

(defun rustls-c-error (code)

13

(let ((ret (rustls-result* code)))

14

(unless (eql :ok ret)

15

(error 'rustls-c-error :message (format nil "Rustls signaled an error: ~A (~A)" ret code)))))