From 293d967eeda090f62cdefa8f98849642b8715162 Mon Sep 17 00:00:00 2001 From: Boutade Date: Wed, 25 Sep 2019 10:47:05 -0500 Subject: consolodated event handling generic functions. added clean-up --- utility-apps.lisp | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'utility-apps.lisp') diff --git a/utility-apps.lisp b/utility-apps.lisp index 4f4b2db..7ea4b21 100644 --- a/utility-apps.lisp +++ b/utility-apps.lisp @@ -9,7 +9,7 @@ :documentation "An output stream to which messages are logged." ))) -(defmethod handle-timeline-event :after ((log message-log) room (event timeline-event)) +(defmethod handle-event :after ((log message-log) room (event timeline-event)) (format (output log) "~a in ~a: ~a~%" (sender event) room -- cgit v1.2.3