diff options
Diffstat (limited to 'lazybones.lisp')
-rw-r--r-- | lazybones.lisp | 6 |
1 files changed, 4 insertions, 2 deletions
diff --git a/lazybones.lisp b/lazybones.lisp index 5ccbf6f..2a62d91 100644 --- a/lazybones.lisp +++ b/lazybones.lisp @@ -62,8 +62,8 @@ value of NIL means that there is no default authorizer.") (state-table :accessor app-state-table - :initform (make-hash-table) - :documentation "A hash table with EQL comparing keys. Used for storing arbitrary application state.") + :initform (make-hash-table :test 'equal) + :documentation "A hash table with EQUAL comparing keys. Used for storing arbitrary application state.") (default-content-type :accessor default-content-type :initarg :content-type @@ -74,9 +74,11 @@ :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)) |