From 534a13f805a930866db4a55e58bc86dc1608dce4 Mon Sep 17 00:00:00 2001 From: Gerd Flaig Date: Sun, 30 Aug 2009 01:39:06 +0200 Subject: [PATCH] Fix xdump driver --- empire.lisp | 12 +++++++----- 1 file changed, 7 insertions(+), 5 deletions(-) diff --git a/empire.lisp b/empire.lisp index c8993e8..8a83ac0 100644 --- a/empire.lisp +++ b/empire.lisp @@ -310,13 +310,15 @@ (with-slots (connection parser phase) m (if (xdump:parse-line parser message) ;;XXX consider something like a 'pop-mode function - (case phase + (ccase phase (:meta-meta - (setf phase :meta-table) - (send-message connection "xdump meta table" :next-mode 'xdump-mode)) + (setf phase :meta-table + parser (xdump:make-parser)) + (send-message connection "xdump meta table")) (:meta-table - (setf phase :table) - (send-message connection "xdump table *" :next-mode 'xdump-mode)) + (setf phase :table + parser (xdump:make-parser)) + (send-message connection "xdump table *")) (:table (set-new-mode (connection-mode connection) 'play-mode)))))) -- 2.43.0