Throw error on unknown event type

[eow] / empire.lisp

diff --git a/empire.lisp b/empire.lisp
index 001f755037313cdcc13e1168199eea4817c3a096..c32696c3504258bd0f4bf78d61806f3b419c11c0 100644 (file)
--- 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))))
 
 (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)))
       (string (send-message-one c next-event))
       (cons (let ((message (car next-event))
                  (mode (cdr next-event)))