0.8.16.6:

[sbcl.git] / src / code / query.lisp

diff --git a/src/code/query.lisp b/src/code/query.lisp
index 4cbe3f8..0312137 100644 (file)
--- a/src/code/query.lisp
+++ b/src/code/query.lisp
@@ -18,8 +18,7 @@
 
 (defun query-read-line ()
   (force-output *query-io*)
-  (string-trim #.(concatenate 'string '(#\Space #\Tab))
-              (read-line *query-io*)))
+  (string-trim " " (read-line *query-io*)))
 
 (defun maybe-print-query (hint format-string &rest format-args)
   (fresh-line *query-io*)
@@ -40,7 +39,7 @@
    n or N as a negative answer. It asks again if you enter any other
    characters."
   (flet ((print-query ()
-          (maybe-print-query "(y or n)" format-string arguments)))
+          (apply #'maybe-print-query "(y or n)" format-string arguments)))
     (loop (print-query)
          (case (query-read-char)
            ((#\y #\Y) (return t))
@@ -53,7 +52,7 @@
    input buffer, beeps, and uses READ-LINE to get the strings
    YES or NO."
   (flet ((print-query ()
-          (maybe-print-query "(yes or no)" format-string arguments)))
+          (apply #'maybe-print-query "(yes or no)" format-string arguments)))
     (beep *query-io*)
     (loop (print-query)
          (let ((input (query-read-line)))