aboutsummaryrefslogtreecommitdiff
path: root/lib/client.lisp
diff options
context:
space:
mode:
Diffstat (limited to 'lib/client.lisp')
-rw-r--r--lib/client.lisp3
1 files changed, 2 insertions, 1 deletions
diff --git a/lib/client.lisp b/lib/client.lisp
index e3f304e..13bf2fe 100644
--- a/lib/client.lisp
+++ b/lib/client.lisp
@@ -86,7 +86,8 @@ running the body. If such a oneliner can be found."
(when *drafts*
(format t (concatenate 'string "~%~" (prin1-to-string *term-width*) "< ~;DRAFTS~; ~>~%"))
(dolist (draft *drafts*)
- (print-oneliner-result-for-user (cdr draft)))))
+ (format t "Draft Name: ~a~%" (first draft))
+ (print-oneliner-result-for-user (rest draft)))))
;;; RUNNING ONELINERS