From 2b5038255fc269672013708493156c6cebc1ffc6 Mon Sep 17 00:00:00 2001
From: Gerd Flaig <gefla@pond.sub.org>
Date: Sun, 26 Apr 2009 16:57:46 +0200
Subject: [PATCH] Ignore data messages in init mode. Handle
 simple-stream-error.

---
 empire.lisp | 5 +++++
 1 file changed, 5 insertions(+)

diff --git a/empire.lisp b/empire.lisp
index 062c0fe..fba1e02 100644
--- a/empire.lisp
+++ b/empire.lisp
@@ -180,6 +180,10 @@
       (:kill-sent (send-message-one connection "play")
 		  (setf phase :play-sent)))))
 
+(defmethod handle-data ((m init-mode) message)
+  (declare (ignorable message))
+  t)
+
 (defmethod handle-exit ((m play-mode) message)
   (declare (ignorable message))
   (quit (connection m)))
@@ -267,6 +271,7 @@
 		(error 'no-handler :mode mode :type type))))
 	line)
     (sb-int:closed-stream-error () nil)
+    (sb-int:simple-stream-error () nil)
     (end-of-file () nil)))
 
 (defun raw-send-message (s message)
-- 
2.43.0