(in-package :slacker)

(defclass event-pump ()
  ((%ws-client :accessor ws-client :initarg :ws-client)
   (%waiting-pings :accessor waiting-pings :initform 0)
   (%modules :accessor modules :initform (make-hash-table))
   (%latest-id :accessor latest-id :initform 0)
   (%work-queue :accessor work-queue :initform (make-instance 'chanl:unbounded-channel))
   (%result-queue :accessor result-queue :initform (make-instance 'chanl:unbounded-channel))))