Coverage report: /development/source/library/com/dydra/gitlab/dydra-cgi/ffi/lisp/rdfcache/sparql-query.lisp

KindCoveredAll%
expression025 0.0
branch00nil
Key
Not instrumented
Conditionalized out
Executed
Not executed
 
Both branches taken
One branch taken
Neither branch taken
1
 (in-package :rdfcache)
2
 
3
 ;; SPARQL Filter API
4
 
5
 ;;; @see http://www.w3.org/TR/sparql11-query/#func-sameTerm
6
 (declaim (ftype (function (fixnum fixnum) boolean) same-term))
7
 (defun same-term (term1-number term2-number)
8
   (declare (type fixnum term1-number term2-number)
9
            (optimize (speed 3)))
10
   (%%sparql-same-term term1-number term2-number))
11
 
12
 ;;; @see http://www.w3.org/TR/sparql11-query/#func-RDFterm-equal
13
 (declaim (ftype (function (fixnum fixnum) boolean) equal-term))
14
 (defun equal-term (term1-number term2-number)
15
   (declare (type fixnum term1-number term2-number)
16
            (optimize (speed 3)))
17
   (eq (%%sparql-equal term1-number term2-number) 1))
18
 
19
 ;;; @see http://www.w3.org/TR/sparql11-query/#func-isIRI
20
 (declaim (ftype (function (fixnum) boolean) is-uri))
21
 (defun is-uri (term-number)
22
   (declare (type fixnum term-number)
23
            (optimize (speed 3)))
24
   ;(eq (fetch-term-type term-number) :uri))
25
   (%%sparql-is-uri term-number))
26
 
27
 ;;; @see http://www.w3.org/TR/sparql11-query/#func-isBlank
28
 (declaim (ftype (function (fixnum) boolean) is-blank))
29
 (defun is-blank (term-number)
30
   (declare (type fixnum term-number)
31
            (optimize (speed 3)))
32
   ;(eq (fetch-term-type term-number) :node))
33
   (%%sparql-is-blank term-number))
34
 
35
 ;;; @see http://www.w3.org/TR/sparql11-query/#func-isLiteral
36
 (declaim (ftype (function (fixnum) boolean) is-literal))
37
 (defun is-literal (term-number)
38
   (declare (type fixnum term-number)
39
            (optimize (speed 3)))
40
   ;(eq (fetch-term-type term-number) :literal))
41
   (%%sparql-is-literal term-number))
42
 
43
 ;;; @see http://www.w3.org/TR/sparql11-query/#func-isNumeric
44
 (declaim (ftype (function (fixnum) boolean) is-numeric))
45
 (defun is-numeric (term-number)
46
   (declare (type fixnum term-number)
47
            (optimize (speed 3)))
48
   (%%sparql-is-numeric term-number))
49
 
50
 ;;; @see http://www.w3.org/TR/sparql11-query/#func-strlen
51
 (declaim (ftype (function (fixnum) fixnum) strlen))
52
 (defun strlen (term-number)
53
   (declare (type fixnum term-number)
54
            (optimize (speed 3)))
55
   (%%sparql-strlen term-number))