diff options
Diffstat (limited to 'lazybones.lisp')
| -rw-r--r-- | lazybones.lisp | 16 |
1 files changed, 0 insertions, 16 deletions
diff --git a/lazybones.lisp b/lazybones.lisp index aab1217..c0f1550 100644 --- a/lazybones.lisp +++ b/lazybones.lisp @@ -60,10 +60,6 @@ is evoked when an ENDPOINT's AUTH slot is T. Endpoints may override this behavor by supplying a function in place of T. A value of NIL means that there is no default authorizer.") - (state-table - :accessor app-state-table - :initform (make-hash-table :test 'equal :synchronized t) - :documentation "A hash table with EQUAL comparing keys. Used for storing arbitrary application state.") (default-content-type :accessor default-content-type :initarg :content-type @@ -73,18 +69,6 @@ :accessor app-endpoints :initform nil))) -(defun app-state (key &optional (app *app*)) - "Fetch private app state by key. Key comparison is by EQUAL." - (gethash key (app-state-table app))) - -(defun (setf app-state) (value key &optional (app *app*)) - "Update the private app state by key. Key comparison is by EQUAL." - (setf (gethash key (app-state-table app)) value)) - -(defun remove-app-state (key &optional (app *app*)) - "Drops the value of KEY in the app state table, if it exists." - (remhash key (app-state-table app))) - (defun expand-provision-app-option (app option value) (list 'setf (ecase option |