(defrule RECORDER::record-simple-output
    (table (table-id ?output) (side append))
    (table-attribute (table-id ?output) (has schema test-complex))
    (test-input (time ?t) (code ?c))
    =>
    (create-new-row ?output)
    (set-column start ?t)
    (set-column duration 10)
    (set-column code ?c)
    (set-column thread sentinel)
)

(defrule RECORDER::spec-test-rule
    (table (table-id ?output) (side append))
    (table-attribute (table-id ?output) (has schema test-complex))
    (speculate (event-horizon ?horizon))
    =>
    (create-new-row ?output)
    (set-column start 1)
    (set-column duration (- ?horizon 1))
    (set-column code 10)
)