@ -4086,3 +4086,18 @@ Return four values: a set of nodes, edges, weights, and a new->old edge mapping.
@@ -4086,3 +4086,18 @@ Return four values: a set of nodes, edges, weights, and a new->old edge mapping.
forltidin(get-all"lt:*")
when(eql(red:ttlltid)-1)
collectltid))
(defunclear-clickhouse-queue()
"Clear the queue of clickhouse failures."
;; make sure we have a connection first
(assert(string="PONG"(red:ping)))
(loop
fortrain=(red:spop"clickhouse-failures")
whiletrain
do(handler-bind
((serious-condition
(lambda(c)
(declare(ignorec))
(log:warn"reinserting train into failures due to condition")