(defun comet (fn &optional (session *working-session*))
(setf (session-value 'comet-fn session) fn)
(signal-semaphore (session-value 'comet-semaphore session)))
+
+--------------------------------------------------------------------------------
+
+Empire connection handling
+
+Maybe do something like cl-irc does with register/unregister handler. Might be
+even better combined with the modes system, provide an easy way to specify which
+event types a specific mode implementation is interested in. Register automatically
+on construction and deregister when leaving the mode.
+
+Using the object system like I do it right doesn't seem like a really good fit.