Key

Not instrumented

Conditionalized out

Executed

Not executed

Both branches taken

One branch taken

Neither branch taken

1

;;; db.lisp --- Database Logger

2

3

;; Log messages to a database

4

5

;;; Code:

6

(in-package :log)

7

8

(defclass db-source (source database) ())

9

10

(defclass db-sink (sink database) ())

11

12

(defmethod msg ((self db-sink) (msg log-message))

13

(insert-key self (timestamp-to-octets (timestamp msg)) (content msg) :column (level msg)))

14

15

(defmethod msg ((self db-sink) (msg simple-message))

16

   (insert-key self (timestamp-to-octets (timestamp msg)) (cons (tags msg) (content msg)) :column (level msg)))

17

18

(defclass database-logger (database logger) ()

19

(:documentation "A LOGGER which writes messages to a DATABASE."))