Ignore data messages in init mode. Handle simple-stream-error.

diff --git a/empire.lisp b/empire.lisp
index 062c0fe960964ed642936ee318c853135efe133a..fba1e028887e52b21e0c3ca918d4efe54cb83de1 100644 (file)
--- a/empire.lisp
+++ b/empire.lisp
@@ -180,6 +180,10 @@
       (:kill-sent (send-message-one connection "play")
                  (setf phase :play-sent)))))
 
       (: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)))
 (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)
                (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)
     (end-of-file () nil)))
 
 (defun raw-send-message (s message)