prompt-value.lisp

;;                      THE LICENSE THAT'S NOT A LICENSE
;;                        Version 1.618, January 2017
;; 
;;     Redistribution of this LICENSE is permitted, either in unmodified
;;         form, with no further qualifications, or in modified form,
;;        under the condition that the name of the license is changed.
;; 
;;                      THE LICENSE THAT'S NOT A LICENSE
;;   TERMS AND CONDITIONS FOR USAGE, COPYING, DISTRIBUTION, AND MODIFICATION
;;                          OF PROVIDED SOFTWARE
;; 
;; 
;;  1. Do WHATEVER YOU WANT with the provided software.
;;  2. Credit is appreciated, but not required.
;; 
;; 
;;     This software is provided with NO WARRANTY, implied or otherwise.        

;;;;
;;;;                            TRIVIAL-ESCAPES                                 
;;;;                  William Yao, <williamyaoh@gmail.com>                      
;;;;                           Copyright (c) 2017                               
;;;;

(in-package #:trivial-escapes)

(defun prompt-value (&optional
                       (input-stream *query-io*)
                       (output-stream *query-io*)
                       (prompt "Enter a value to use:")
                       (eof-error-p t)
                       (eof-value nil)
                       (recursive-p nil))
  "Primarily meant to be used in interactive restarts.
   PROMPT doesn't require a trailing space."
  (format output-stream "~A " prompt)
  (read-line input-stream eof-error-p eof-value recursive-p))