(with-slots (connection parser phase) m
(if (xdump:parse-line parser message)
;;XXX consider something like a 'pop-mode function
(with-slots (connection parser phase) m
(if (xdump:parse-line parser message)
;;XXX consider something like a 'pop-mode function