diff options
| author | Colin Okay <okay@toyful.space> | 2022-03-13 14:45:28 -0500 |
|---|---|---|
| committer | Colin Okay <okay@toyful.space> | 2022-03-13 14:45:28 -0500 |
| commit | 7a97e9d6ba5737f1088dd3a81b9b16121cf47c39 (patch) | |
| tree | 33f2ec9bad49ca2ca260ce1751604ae4457bce61 | |
| parent | 6890b0349f79c0fbbbe5b8b7b3dbf8c2d2262e79 (diff) | |
only print drafts when *drafts* is non null
| -rw-r--r-- | lib/client.lisp | 7 |
1 files changed, 4 insertions, 3 deletions
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 |