Coverage report: /development/source/library/org/datagraph/spocq-shard/src/store/rlmdb/operators.lisp

Kind	Covered	All	%
expression	0	38	0.0
branch	0	0	nil

Key

Not instrumented

Conditionalized out

Executed

Not executed

Both branches taken

One branch taken

Neither branch taken

1

;;; -*- Mode: lisp; Syntax: ansi-common-lisp; Base: 10; Package: org.datagraph.rdf.lmdb.implementation; -*-

2

3

(in-package :org.datagraph.spocq.implementation)

4

5

(:documentation "Extension operators to make revision properties available

6

through BGP predicates.

7

")

8

9

(eval-when (:load-toplevel :compile-toplevel :execute)

10

(export '(|dydra|::|revision-max-uri|

11

|dydra|::|revision-min-uri|)

12

"dydra"))

13

14

(defun |dydra|:|revision-max-uri| (transaction context subject property object &optional continuation)

15

(declare (ignore object))

16

(let* ((ordinal (revision-min-ordinal))

17

(uuid-string (rlmdb:find-revision-uuid transaction ordinal)))

18

(cond (uuid-string

19

(let* ((uuid (intern-uuid uuid-string))

20

(uuid-term-number (rlmdb:value-term-number uuid)))

21

(if continuation

22

(funcall continuation context subject property uuid-term-number)

23

uuid)))

24

(t

25

(load-time-value (spocq:make-unbound-variable '|dydra|:|revision-max-uri|))))))

26

27

(defun |dydra|:|revision-min-uri| (transaction context subject property object &optional continuation)

28

(declare (ignore object))

29

(let* ((ordinal (revision-max-ordinal))

30

(uuid-string (rlmdb:find-revision-uuid transaction ordinal)))

31

(cond (uuid-string

32

(let* ((uuid (intern-uuid uuid-string))

33

(uuid-term-number (rlmdb:value-term-number uuid)))

34

(if continuation

35

(funcall continuation context subject property uuid-term-number)

36

uuid)))

37

(t

38

(load-time-value (spocq:make-unbound-variable '|dydra|:|revision-min-uri|))))))

39