eta 3 weeks ago
parent
commit
2acdeb7335
  1. 4
      trackernet.lisp

4
trackernet.lisp

@ -4462,6 +4462,10 @@ Return four values: a set of nodes, edges, weights, and a new->old edge mapping. @@ -4462,6 +4462,10 @@ Return four values: a set of nodes, edges, weights, and a new->old edge mapping.
(return-from stomp-td-message-handler))
(unless (string= (cdr (assoc :area--id body)) "Q0")
(return-from stomp-td-message-handler))
(when (and (cdr (assoc :descr body))
(position #\* (cdr (assoc :descr body))))
;; FIXME(eta): hotpatch to prevent asterisks from getting in
(return-from stomp-td-message-handler))
(let ((old-berth (cdr (assoc :from body))))
(when old-berth
(let ((old-headcode (red:getdel

Loading…
Cancel
Save