blob: 7ea4b21ae7a6757ec097b9572ee678a964248afd (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
|
(in-package :granolin)
(defclass message-log ()
((output
:accessor output
:initarg :output
:initform (error "Message Log requires an output stream")
:type stream
:documentation "An output stream to which messages are logged."
)))
(defmethod handle-event :after ((log message-log) room (event timeline-event))
(format (output log) "~a in ~a: ~a~%"
(sender event)
room
(msg-body event)))
|
