diff options
Diffstat (limited to 'lazybones.lisp')
-rw-r--r-- | lazybones.lisp | 3 |
1 files changed, 3 insertions, 0 deletions
diff --git a/lazybones.lisp b/lazybones.lisp index 2a62d91..40eb2f7 100644 --- a/lazybones.lisp +++ b/lazybones.lisp @@ -81,6 +81,9 @@ "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 |