handle-flush in play-mode

[eow] / empire.lisp

diff --git a/empire.lisp b/empire.lisp
index 6d756a97fc93ddab8ba9a3ed7aa3d52754017c99..6230e9369070f4a335567838273d4cb098ef9656 100644 (file)
--- 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)))