Key

Not instrumented

Conditionalized out

Executed

Not executed

Both branches taken

One branch taken

Neither branch taken

1

(cl:in-package #:TREE-SITTER)

2

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

3

(cl:defparameter *integer-sizes* (cl:make-hash-table))

4

(cl:setf (cl:gethash 1 *integer-sizes*) 'sb-alien:char)

5

(cl:setf (cl:gethash 2 *integer-sizes*) 'sb-alien:short)

6

(cl:setf (cl:gethash 8 *integer-sizes*) 'sb-alien:long-long)

7

(cl:setf (cl:gethash 8 *integer-sizes*) 'sb-alien:long)

8

(cl:setf (cl:gethash 4 *integer-sizes*) 'sb-alien:int)

9

)

10

(cl:defconstant +TREE-SITTER-LANGUAGE-VERSION+ 15 "T")

11

(cl:export '+TREE-SITTER-LANGUAGE-VERSION+)

12

(cl:defconstant +TREE-SITTER-MIN-COMPATIBLE-LANGUAGE-VERSION+ 13 "T")

13

(cl:export '+TREE-SITTER-MIN-COMPATIBLE-LANGUAGE-VERSION+)