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

(defmacro spocq.a:|reduced| (solution-field &rest args &key count end offset start)

6

"( ( solutionField ) solutionField )

7

A REDUCED form accepts a single solution field and yields an analogous field

8

which removes the duplicate solutions."

9

10

(declare (ignore count end offset start))

11

(setf args (apply #'canonicalize-algebra-arguments args))

12

`(spocq.e:reduced ,solution-field ,@args))

13

14

15

(defgeneric spocq.e:reduced (solution-field &rest args &key end start)

16

17

(:method ((solution-field t) &rest args)

18

(apply #'spocq.e:distinct solution-field args)))