-(defmethod handle-prompt ((m play-mode) message)
- (let* ((c (connection m))
- (log (logging-stream c)))
- (format log "handle-data ~a~%" message)))
+(defmethod handle-exit ((m init-mode) message)
+ (declare (ignorable message))
+ (quit (connection m)))
+
+(defmethod handle-exit ((m play-mode) message)
+ (declare (ignorable message))
+ (quit (connection m)))
+
+(defmethod handle-data ((m play-mode) message)
+ (let* ((c (connection m)))
+ (empire-web:data (session c) message)))
+
+(defmethod handle-simple-message ((m play-mode) message)
+ (let* ((c (connection m)))
+ (empire-web:data (session c) message)))
+
+(defmethod handle-flush ((m play-mode) message)
+ (let* ((c (connection m)))
+ (empire-web:prompt (session c) message)))