;;
;;;;;;; subserver
;;
(defclass subserver () ())

(defmethod initialize-instance :after ((asubserver subserver) &rest foo)
;; nada
)

(defmethod event ((asubserver subserver))
;; nada
  )