;;;;
;;;; This file and Wol are Copyright (c) 2001-2003 by Kevin M. Rosenberg
;;;; *************************************************************************
;;;;
;;;; This file and Wol are Copyright (c) 2001-2003 by Kevin M. Rosenberg
;;;; *************************************************************************
(lifetime :initarg :lifetime :initform nil
:accessor websession-lifetime)
(data :initform nil :accessor websession-data)
(lifetime :initarg :lifetime :initform nil
:accessor websession-lifetime)
(data :initform nil :accessor websession-data)
(defclass http-request ()
((method :initarg :method :accessor request-method)
(uri :initarg :uri :accessor request-uri)
(defclass http-request ()
((method :initarg :method :accessor request-method)
(uri :initarg :uri :accessor request-uri)
(raw-uri :initarg :raw-uri :accessor request-raw-uri)
(protocol :initarg :protocol :reader request-protocol)
(protocol-string :initarg :protocol-string :reader request-protocol-string)
(raw-uri :initarg :raw-uri :accessor request-raw-uri)
(protocol :initarg :protocol :reader request-protocol)
(protocol-string :initarg :protocol-string :reader request-protocol-string)
(posted-content :initarg :posted-content :accessor request-posted-content)
(headers :initarg :headers :accessor request-headers)
(page :initarg :page :initform nil :accessor request-page)
(posted-content :initarg :posted-content :accessor request-posted-content)
(headers :initarg :headers :accessor request-headers)
(page :initarg :page :initform nil :accessor request-page)
(uri-query :initarg :uri-query :initform nil
:accessor request-uri-query)
(query-alist :initarg :query-alist :initform nil
(uri-query :initarg :uri-query :initform nil
:accessor request-uri-query)
(query-alist :initarg :query-alist :initform nil
-(defvar +asp-header+ "lsp")
-(defvar +full-asp-header+ "/lsp")
+(eval-when (:compile-toplevel :load-toplevel :execute)
+ (defvar +plist-header+ "sdata"
+ "string that starts an encoded plist"))