From ed19bd38851ee35d2cfcb193e2b3f06112fda8b7 Mon Sep 17 00:00:00 2001 From: Gerd Flaig Date: Sun, 26 Apr 2009 15:26:10 +0200 Subject: [PATCH] Throw error on unknown event type --- empire.lisp | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) 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))) -- 2.43.0