projects
/
eow
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
| inline |
side by side
(parent:
267c909
)
handle-flush in play-mode
author
Gerd Flaig
<gefla@gefla-mac-zrh.local>
Fri, 26 Dec 2008 16:33:48 +0000
(17:33 +0100)
committer
Gerd Flaig
<gefla@gefla-mac-zrh.local>
Fri, 26 Dec 2008 16:33:48 +0000
(17:33 +0100)
empire.lisp
patch
|
blob
|
history
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)))