diff options
-rw-r--r-- | lib/client.lisp | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/lib/client.lisp b/lib/client.lisp index 530b454..dea6de6 100644 --- a/lib/client.lisp +++ b/lib/client.lisp @@ -79,7 +79,7 @@ running the body. If such a oneliner can be found." (princ (oneliner-explanation ol))))) (defun print-drafts () - (format t "DRAFTS~%") + (format t (concatenate 'string "~%~" (prin1-to-string *term-width*) "< ~;DRAFTS~; ~>~%")) (dolist (draft *drafts*) (print-oneliner-result-for-user (cdr draft)))) |