blob: 4f4b2dbc427212db2dcccca73e4fa217b18672c5 (
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-timeline-event :after ((log message-log) room (event timeline-event))
(format (output log) "~a in ~a: ~a~%"
(sender event)
room
(msg-body event)))
|
