diff options
-rw-r--r-- | lazybones.lisp | 16 | ||||
-rw-r--r-- | package.lisp | 2 |
2 files changed, 0 insertions, 18 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 diff --git a/package.lisp b/package.lisp index 901f569..22766cd 100644 --- a/package.lisp +++ b/package.lisp @@ -44,8 +44,6 @@ #:generate-app-documentation #:provision-app #:app - #:app-state - #:remove-app-state #:canned-response #:set-canned-response #:create-server |