Key

Not instrumented

Conditionalized out

Executed

Not executed

Both branches taken

One branch taken

Neither branch taken

1

;;; server.lisp --- Skel Network Server

2

3

;;

4

5

;;; Code:

6

(in-package :skel/net/server)

7

8

(defclass sk-request (request) ())

9

(defclass sk-response (response) ())

10

11

(defclass sk-service (udp-service) ()

12

(:default-initargs

13

:port *skel-service-port*

14

:request-class 'sk-request

15

:response-class 'sk-response))