(setf play-sent-p t))
(set-new-mode m 'play-mode))))
-(defmethod handle-prompt ((m play-mode) message)
+(defmethod handle-data ((m play-mode) message)
(let* ((c (connection m))
(log (logging-stream c)))
(format log "handle-data ~a~%" message)))
(defmethod handle-prompt ((m play-mode) message)
(let* ((c (connection m))
(log (logging-stream c)))
- (format log "handle-prompt ~a~%" message)))
+ (with-input-from-string (s message)
+ (let* ((minutes (read s))
+ (btus (read s)))
+ (format log "[~a:~a]: ~%" minutes btus)))))
(defparameter *line-type-dispatch*
(list `(,+C_DATA+ . handle-data)