Key

Not instrumented

Conditionalized out

Executed

Not executed

Both branches taken

One branch taken

Neither branch taken

1

(in-package :dydra-ndk)

2

3

;;; String API: Foreign Symbols

4

5

 (defcfun ("dydra_string_collate" %%string-collate) :int (string1 :string) (string2 :string) (language :string))

6

(defcfun ("dydra_string_compare" %%string-compare) :int (string1 :string) (string2 :string))

7

8

;;; String API: Wrappers

9

10

(defun string-collate (string1 string2 language)

11

(declare (type string string1 string2 language))

12

(let ((result (%%string-collate string1 string2 language)))

13

(case result ((-1 0 1) result) (t nil))))

14

15

(defun string-compare (string1 string2)

16

(declare (type string string1 string2))

17

(let ((result (%%string-compare string1 string2)))

18

(case result ((-1 0 1) result) (t nil))))