From 166157a1bc28cbb7fe9958a872e6d3ff9e6bc317 Mon Sep 17 00:00:00 2001 From: Gerd Flaig Date: Fri, 26 Dec 2008 17:33:48 +0100 Subject: [PATCH] handle-flush in play-mode --- empire.lisp | 6 ++++++ 1 file changed, 6 insertions(+) diff --git a/empire.lisp b/empire.lisp index 6d756a9..6230e93 100644 --- a/empire.lisp +++ b/empire.lisp @@ -159,6 +159,12 @@ this stream.") (format log "handle-data ~a~%" message) (empire-web:data (session c) message))) +(defmethod handle-flush ((m play-mode) message) + (let* ((c (connection m)) + (log (logging-stream c))) + (format log "handle-flush ~a~%" message) + (empire-web:data (session c) message))) + (defmethod handle-prompt ((m play-mode) message) (let* ((c (connection m)) (log (logging-stream c))) -- 2.43.0