diff options
| author | Colin Okay <okay@toyful.space> | 2022-03-13 14:39:55 -0500 |
|---|---|---|
| committer | Colin Okay <okay@toyful.space> | 2022-03-13 14:39:55 -0500 |
| commit | 6a6c2ec8e2ef6cc9fa91f769d7dbe79387529619 (patch) | |
| tree | 408b212bf6720fd97c1e264d641a5cbe830f76f5 /lib/state.lisp | |
| parent | 8ba6552132fab6daef1f2b10adf932c87947e2ec (diff) | |
printing drafts
Diffstat (limited to 'lib/state.lisp')
| -rw-r--r-- | lib/state.lisp | 2 |
1 files changed, 1 insertions, 1 deletions
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 |