From ce892522669e953250e350d493417c86bde5ec35 Mon Sep 17 00:00:00 2001 From: Colin Okay Date: Thu, 10 Feb 2022 07:07:20 -0600 Subject: changed app state to compare keys with equal --- lazybones.lisp | 6 ++++-- 1 file 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)) -- cgit v1.2.3