0.8.16.6:

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

diff --git a/src/code/query.lisp b/src/code/query.lisp
index bd08d5d..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*)