Coverage report: /home/ellis/comp/core/lib/organ/object/timestamp.lisp

Kind	Covered	All	%
expression	0	5	0.0
branch	0	0	nil

Key

Not instrumented

Conditionalized out

Executed

Not executed

Both branches taken

One branch taken

Neither branch taken

1

;;; lib/organ/object/timestamp.lisp --- Org Timestamp Object

2

3

;; Org timestamps come in one of the seven following patterns:

4

#|

5

 <%%(SEXP)>                                                     (diary)

6

<DATE TIME REPEATER-OR-DELAY> (active)

7

[DATE TIME REPEATER-OR-DELAY] (inactive)

8

<DATE TIME REPEATER-OR-DELAY>--<DATE TIME REPEATER-OR-DELAY> (active range)

9

<DATE TIME-TIME REPEATER-OR-DELAY> (active range)

10

[DATE TIME REPEATER-OR-DELAY]--[DATE TIME REPEATER-OR-DELAY] (inactive range)

11

[DATE TIME-TIME REPEATER-OR-DELAY] (inactive range)

12

|#

13

14

;; As of 2023-12-26 we are ignoring the diary format. The remainder

15

;; are supported.

16

17

;; Timestamps can be of a unit kind (active/inactive above) or

18

;; represent a range. Active and Inactive timestamps are unrelated and

19

;; shouldn't inherit structure from each other. For example don't

20

;; define a slot named ACTIVE to distinguish them.

21

22

;;; Code:

23

(in-package :organ)

24

25

(define-org-object active-timestamp (date time mod))

26

(define-org-object active-timestamp-range (ts1 ts2))

27

(define-org-object inactive-timestamp (date time mod))

28

(define-org-object inactive-timestamp-range (ts1 ts2))