(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)))