Key

Not instrumented

Conditionalized out

Executed

Not executed

Both branches taken

One branch taken

Neither branch taken

1

;;; pkg.lisp --- SSL

2

3

;;

4

5

;;; Code:

6

(pkg:defpkg :cry/ssl

7

(:nicknames :ssl)

8

(:use :cl :std :sb-gray :io :config :build :sb-alien :rustls :cry)

9

(:shadowing-import-from :std/rand :random-bytes)

10

(:use-reexport :cl+ssl)

11

(:export :*ssl-cipher-list* :*ssl-buffer-size* :*ca-bundle* :*no-ssl*))

12

(in-package :ssl)

13

(defvar *ssl-cipher-list* nil)

14

(defvar *ssl-buffer-size* 2048)

15

(defvar *no-ssl* nil)

16

(defparameter *ca-bundle*

17

#.(namestring #P"/etc/ca-certificates/extracted/ca-bundle.trust.crt")

18

"The default public root certificates used for SSL verification.")

19

(define-condition ssl-condition (crypto-condition) ())

20

(define-condition ssl-error (error ssl-condition) ())