X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcode%2Fquery.lisp;h=03121376bc7d38877c926ece2ad0f8ac796b12a4;hb=fedd9f4e92ddb1b599695043eb1dafe356475afc;hp=4cbe3f8bb675b80e99f266f07decebfa5b9ee59b;hpb=96de323a7da5d9f72473b48625dcb6d084ec0a3b;p=sbcl.git

diff --git a/src/code/query.lisp b/src/code/query.lisp
index 4cbe3f8..0312137 100644
--- 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)))