From: Gerd Flaig <gefla@pond.sub.org>
Date: Sun, 26 Apr 2009 13:26:10 +0000 (+0200)
Subject: Throw error on unknown event type
X-Git-Url: http://git.pond.sub.org/?p=eow;a=commitdiff_plain;h=ed19bd38851ee35d2cfcb193e2b3f06112fda8b7

Throw error on unknown event type
---

diff --git a/empire.lisp b/empire.lisp
index 001f755..c32696c 100644
--- a/empire.lisp
+++ b/empire.lisp
@@ -181,7 +181,7 @@
 
 (defmethod send-next-line ((c connection))
   (let ((next-event (locked-queue:dequeue (send-queue c))))
-    (typecase next-event
+    (etypecase next-event
       (string (send-message-one c next-event))
       (cons (let ((message (car next-event))
 		  (mode (cdr next-event)))