From dfff1a5ae35e93e68257eda54411ac89adebd77c Mon Sep 17 00:00:00 2001
From: Colin Okay <okay@toyful.space>
Date: Thu, 10 Feb 2022 08:45:26 -0600
Subject: added remove-app-state function

---
 lazybones.lisp | 3 +++
 1 file changed, 3 insertions(+)

(limited to 'lazybones.lisp')

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 
-- 
cgit v1.2.3