;;;; Programmer: Kevin M. Rosenberg
;;;; Date Started: July 2003
;;;;
-;;;; $Id: classes.lisp,v 1.1 2003/07/16 16:02:21 kevin Exp $
+;;;; $Id: classes.lisp,v 1.2 2003/07/16 16:40:35 kevin Exp $
;;;;
;;;; This file and Wol are Copyright (c) 2001-2003 by Kevin M. Rosenberg
;;;; *************************************************************************
(defclass websession ()
((key :initarg :key :accessor websession-key)
(lastref :initarg :lastref :accessor websession-lastref)
+ (lifetime :initarg :lifetime :initform nil
+ :accessor websession-lifetime)
(data :initform nil :accessor websession-data)
(method :initarg :method :accessor websession-method)
(variables :initform (make-hash-table :test 'equal)