(defun clarify-legal-query-input (yes no)
(format *query-io* "~&Please type \"~A\" for yes or \"~A\" for no.~%"
(defun clarify-legal-query-input (yes no)
(format *query-io* "~&Please type \"~A\" for yes or \"~A\" for no.~%"
- (case (query-read-char)
- ((#\y #\Y) (return t))
- ((#\n #\N) (return nil))
- (t (clarify-legal-query-input "y" "n"))))))
-
+ (case (query-read-char)
+ ((#\y #\Y) (return t))
+ ((#\n #\N) (return nil))
+ (t (clarify-legal-query-input "y" "n"))))))
+
(defun yes-or-no-p (&optional format-string &rest arguments)
#!+sb-doc
"YES-OR-NO-P is similar to Y-OR-N-P, except that it clears the
input buffer, beeps, and uses READ-LINE to get the strings
YES or NO."
(flet ((print-query ()
(defun yes-or-no-p (&optional format-string &rest arguments)
#!+sb-doc
"YES-OR-NO-P is similar to Y-OR-N-P, except that it clears the
input buffer, beeps, and uses READ-LINE to get the strings
YES or NO."
(flet ((print-query ()
- (let ((input (query-read-line)))
- (cond
- ((string-equal input "yes") (return t))
- ((string-equal input "no") (return nil))
- (t (clarify-legal-query-input "yes" "no")))))))
+ (let ((input (query-read-line)))
+ (cond
+ ((string-equal input "yes") (return t))
+ ((string-equal input "no") (return nil))
+ (t (clarify-legal-query-input "yes" "no")))))))