Coverage report: /development/source/library/org/datagraph/spocq-shard/src/odbc/utility/algebra.lisp

Kind	Covered	All	%
expression	0	27	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.spocq.implementation; -*-

2

3

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

4

5

(defgeneric iri-sql-name (iri)

6

(:method ((iri puri:uri))

7

(let ((path (puri:uri-path iri))

8

(fragment (puri:uri-fragment iri)))

9

;; need the authority

10

(if fragment

11

(concatenate 'string path "#" fragment)

12

path)))

13

(:method ((iri t))

14

(iri-sql-name (puri:uri iri))))

15

16

(defgeneric iri-lessp (i1 i2)

17

(:method ((i1 string) (i2 string))

18

(string-lessp i1 i2))

19

(:method ((i1 string) (i2 t))

20

(iri-lessp i1 (iri-lexical-form i2)))

21

(:method ((i1 t) (i2 t))

22

(iri-lessp (iri-lexical-form i1) i2)))

23