From 7a97e9d6ba5737f1088dd3a81b9b16121cf47c39 Mon Sep 17 00:00:00 2001
From: Colin Okay <okay@toyful.space>
Date: Sun, 13 Mar 2022 14:45:28 -0500
Subject: only print drafts when *drafts* is non null

---
 lib/client.lisp | 7 ++++---
 1 file changed, 4 insertions(+), 3 deletions(-)

(limited to 'lib')

diff --git a/lib/client.lisp b/lib/client.lisp
index dea6de6..aa7e896 100644
--- a/lib/client.lisp
+++ b/lib/client.lisp
@@ -79,9 +79,10 @@ running the body. If such a oneliner can be found."
       (princ (oneliner-explanation ol)))))
 
 (defun print-drafts ()
-  (format t (concatenate 'string "~%~" (prin1-to-string *term-width*) "< ~;DRAFTS~; ~>~%"))
-  (dolist (draft *drafts*)
-    (print-oneliner-result-for-user (cdr draft))))
+  (when *drafts*
+    (format t (concatenate 'string "~%~" (prin1-to-string *term-width*) "< ~;DRAFTS~; ~>~%"))
+    (dolist (draft *drafts*)
+      (print-oneliner-result-for-user (cdr draft)))))
 
 ;;; RUNNING ONELINERS
 
-- 
cgit v1.2.3