From 6a6c2ec8e2ef6cc9fa91f769d7dbe79387529619 Mon Sep 17 00:00:00 2001
From: Colin Okay <okay@toyful.space>
Date: Sun, 13 Mar 2022 14:39:55 -0500
Subject: printing drafts

---
 lib/state.lisp | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'lib/state.lisp')

diff --git a/lib/state.lisp b/lib/state.lisp
index 8ab6c51..9c25ab6 100644
--- a/lib/state.lisp
+++ b/lib/state.lisp
@@ -90,7 +90,7 @@
 
 (defun drop-draft (name)
   "Drop a draft by NAME from the *DFRAFTS* association list."
-  (setf *DRAFTS* (delete (assoc name *DRAFTS*) *DRAFTS*)))
+  (setf *DRAFTS* (delete (assoc name *DRAFTS* :test #'string-equal) *DRAFTS*)))
 
 (defun put-draft (name draft)
   "Modifies *DRAFTS*, adding a new DRAFT associated with NAME. If NAME
-- 
cgit v1.2.3