;;
;;;;;;; session
;;
(defclass session (subserver)
  (
   (interpreter :accessor interpreter :initform nil :initarg :interpreter)
   (socket-object :accessor socket-object :initform nil :initarg :socket-object)
   )
  )

(defmethod initialize-instance :after ((asession session) &rest foo)
;; nada
)

(defmethod event ((asession session))
  (if (listen (socket-object asession)) 
      ;; okay
      )
  (list asession)
  )


(defmethod send ((asession session) string)
;; do this
  )

(defmethod mode ((asession session) &key linemode charmode)
;; in this version of the session we do nothing 
)