handle-flush in play-mode
authorGerd Flaig <gefla@gefla-mac-zrh.local>
Fri, 26 Dec 2008 16:33:48 +0000 (17:33 +0100)
committerGerd Flaig <gefla@gefla-mac-zrh.local>
Fri, 26 Dec 2008 16:33:48 +0000 (17:33 +0100)
empire.lisp

index 6d756a97fc93ddab8ba9a3ed7aa3d52754017c99..6230e9369070f4a335567838273d4cb098ef9656 100644 (file)
@@ -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)))