X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcode%2Fquery.lisp;h=03121376bc7d38877c926ece2ad0f8ac796b12a4;hb=771b864c8f32af7734bc0550aeaf1539fc4df194;hp=bd08d5d3c268bc7c95468710caba7ba54ddb3cfe;hpb=dfa8294a1580e8aa099a92baebba7d9caddb2fcb;p=sbcl.git

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