@ -4454,6 +4460,9 @@ Return four values: a set of nodes, edges, weights, and a new->old edge mapping.
@@ -4454,6 +4460,9 @@ Return four values: a set of nodes, edges, weights, and a new->old edge mapping.
(fake-train(cadrdata)))
(unless(string=(cardata)"X-DEL"); already done
(log:info"Deleting train with headcode ~A"headcode)
@ -4472,7 +4481,7 @@ Return four values: a set of nodes, edges, weights, and a new->old edge mapping.
@@ -4472,7 +4481,7 @@ Return four values: a set of nodes, edges, weights, and a new->old edge mapping.
;; this is so ridiculously stupid and yet also excellent
(when(membermessage-type'(:+CA-MSG+:+CC-MSG+))
@ -4489,6 +4498,9 @@ Return four values: a set of nodes, edges, weights, and a new->old edge mapping.
@@ -4489,6 +4498,9 @@ Return four values: a set of nodes, edges, weights, and a new->old edge mapping.
@ -4535,7 +4547,16 @@ Return four values: a set of nodes, edges, weights, and a new->old edge mapping.
@@ -4535,7 +4547,16 @@ Return four values: a set of nodes, edges, weights, and a new->old edge mapping.