(defclass interp ()
  (
   (session :accessor session :initform nil :initarg :session)
   )
  )

(defmethod event ((ainterp interp))
  ;; la
  )


(defclass interp-echoer (interp)
  (
   ()
   )
)

(defmethod event ((self, interp-echoer))
 
  )