aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rw-r--r--lib/client.lisp7
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