From 57bae08a8b9accc1d4bfb7165080e7d5a5ef2a30 Mon Sep 17 00:00:00 2001
From: Colin Okay <okay@toyful.space>
Date: Sun, 13 Mar 2022 17:40:45 -0500
Subject: deletion support; some cache syncing in client functions;

---
 lib/state.lisp | 4 ++++
 1 file changed, 4 insertions(+)

(limited to 'lib/state.lisp')

diff --git a/lib/state.lisp b/lib/state.lisp
index 9c25ab6..7a9a427 100644
--- a/lib/state.lisp
+++ b/lib/state.lisp
@@ -78,6 +78,10 @@
                (string #'oneliner-name))
         :test #'equal))
 
+(defun remove-from-cache (id-or-name)
+  "Removes an item from the contents of *cache*."
+  (a:when-let (found (get-cached id-or-name))
+    (setf *cache* (delete found *cache*))))
 
 ;;; DRAFTS VAR AND OPERATIONS
 
-- 
cgit v1.2.3